用IdFTP连接FTP时候 出现的问题

Question

为什么我点连接后没反应，帮忙看下 下面是我的程序
procedure TForm1.btn1Click(Sender: TObject);
var
  tr:TStrings;
begin
  try
    tr:=TStringList.Create;
    begin       if IdFTP1.Connected then//我把这个去掉就报地址错误
       begin
         IdFTP1.Disconnect;
         IdFTP1.Name:='FTP01';
         IdFTP1.Password:='123456';
         IdFTP1.Host:='192.168.1.167';
         IdFTP1.Connect();
         edt4.Text := IdFTP1.RetrieveCurrentDir;
         IdFTP1.ChangeDir('FTP01');
         IdFTP1.List(tr);
         mmo1.Lines.Assign(tr);
       end;
    end;  
  finally
    tr.Free;
  end;end;

Answer 1

为什么要去掉 if IdFTP1.Connected then

Answer 2

另外服务器是否肯定支持ftp

Answer 3

那端口在delphi中那边设置呢，服务肯定支持的FTP的

Answer 4

不行 
那个服务器的名字和密码应该是我的机器的名字还是在IIS里面配置的那个FTP的，我好像用的是管辖这个FTP的用户的名字和密码。但是我用网上下的DEMO能连上，不过那个程序太乱了...看不明白....

Answer 5

恩 看了 那个端口什么的都是对的 我自己再去看看demo 实在想不通 我和demo的一样  我的就连不上 他的就能连上