关于多路ftp的问题 郁闷中(100分)

要求---在服务器同时对6台机器用ftp上传文件

我用了6个nmftp控件，想同时对6台机器上传文件，可是不行
只能同时对一台机器上传文件，请指教

procedure TForm1.upload6000Click(Sender: TObject);
begin
NMFTP1.Host := ip6000.caption;
NMFTP1.Timeout := 5000;
NMFTP1.UserID := user6000.Text;
NMFTP1.Password := Passwd6000.Text;
true6000.caption:='传送';
try
NMFTP1.Connect;
NMFTP1.upload(filename.Text, filename.Text);
true6000.caption:='成功';
except
true6000.caption:='失败';
end;
NMFTP1.Disconnect;
end;



procedure TForm1.upload6040Click(Sender: TObject);
begin
NMFTP2.Host := ip6040.caption;
NMFTP2.Timeout := 5000;
NMFTP2.UserID := user6040.Text;
NMFTP2.Password := Passwd6040.Text;
true6040.caption:='传送';
try
NMFTP2.Connect;
NMFTP2.upload(filename.Text, filename.Text);
true6040.caption:='成功';
except
true6040.caption:='失败';
end;
NMFTP2.Disconnect;
end;
。
。
。
procedure TForm1.upload6019Click(Sender: TObject);
begin
NMFTP6.Host := ip6019.caption;
NMFTP6.Timeout := 5000;
NMFTP6.UserID := user6019.Text;
NMFTP6.Password := Passwd6019.Text;
true6019.caption:='传送';
try
NMFTP6.Connect;
NMFTP6.upload(filename.Text, filename.Text);
true6019.caption:='成功';
except
true6019.caption:='失败';
end;
NMFTP6.Disconnect;
end;

试试用INDY或者ICS控件

采用多线程技术来实现

我是菜鸟 请大家说的清楚一点好吗?

[blue]各位高手请帮忙[/blue]

多线程 就是 不去拖VCL
建立THREAD连接不同FTP