idFTP connect 后程序未响应

Question

indy9.0版本，代码如下：
procedure TForm1.Button1Click(Sender: TObject);
begin
  if IdFTP1.Connected then
  try
    IdFTP1.Abort;
    IdFTP1.Quit;
  finally
    ;
  end
  else
  with IdFTP1 do
  try
    Username := 'administrator';
    Password := 'wxzhou';
    Host := '192.168.1.205';
    IdFtp1.Port:=12599  ;
    Connect;         //?????????????连接是成功了的，
                    //IdFTP1Status也执行了DebugListBox显示了IP和connected
    showmessage('成功');//?????????调试的时候就没来了这一句，且程
                   //序不久就处于未响应状态，窗口也无法拖动，请问为什么？怎么解决
  finally
    ;
  end;
end;procedure TForm1.IdFTP1Status(ASender: TObject; const AStatus: TIdStatus;
  const AStatusText: String);
begin
  DebugListBox.ItemIndex := DebugListBox.Items.Add(AStatusText);
end;

Answer 1

不懂，不知道IdFtp1.Port:=12599
是做什么的。