网络问题，请高手指点

[xgh19872007]

我学习一些delphi方面的网络编程，一些简单的FTP连接，老是连接不上，请高手指点一下：代码是


if not IdFTP1.Connected then
begin
with IdFTP1 do
begin
try
Username:=trim(edit1.Text);
Password:=trim(edit2.Text);
Host:=edit3.Text;
// Host:='202.196.200.216';
Connect;
Except
Application.MessageBox('服务器连接失败！','明日科技');
end;
button1.Enabled:=true;
if Connected then
begin
button1.Caption:='断开';
listbox1.Items.Add('主机名:'+Host);
listbox1.Items.Add('连接成功');
button1.Default:=false;
end;
end;
end
else
try
IdFTP1.Quit;
finally
button1.Caption:='连接';
listbox1.Items.Add('连接失败');
button1.Enabled:=true;
button1.Default:=true;
end;