delphi初学者请求高手帮忙，非诚勿扰！！

我这有一份基于delphi的局域网聊天工具，由于我是初学者，看代码太费劲，有谁能帮我把代码注释一下吗,就是把每个函数过程的作用做个注释。如果愿意帮忙留下你的邮箱，谢谢了。