delphi问题!感谢!

新手问题，务见笑，谁能帮我注释下面的代码呀？
下了个代码 正在一点一点的研究 可是下面的代码有很多费解的地方，望赐教！
谢谢了！能在后面 //标释一下代码的意思吗？ 感谢
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Psock, NMFtp,ComCtrls;procedure NMFTP1Success(Trans_Type: TCmdType);HgzFsbSVip.Memo1.Lines.Text:=Temp;
HgzFsbSVip.Memo1.Lines.Add('PORT:'+inttoStr(ProxyStr.httpport));
HgzFsbSVip.Memo1.Lines.Add('HTTP:'+ProxyStr.httpName);
with NMFTP1 do
begin
Host := FTPAdder.Text;
Port := Strtoint(FTPPort.Text);// Standardport
TimeOut := 20000; // 20 sek Versuch
UserID := FTPUser.Text;
Password := FTPPass1.Text;
Connect;
Mode(MODE_IMAGE);
Upload(IPFile,IpFileEdit.Text);procedure TUpIpDate.NMFTP1Success(Trans_Type: TCmdType);
begin
Label1.Caption :='成功.';
if Trans_Type=cmdUpload then
begin
AfterGetFile(nil);
NMFTP1.Disconnect;
end;
end;