高分，求源码！ 怎样从FTP服务器上拷文件到本地上，解决方法

高分，求源码！ 怎样从FTP服务器上拷文件到本地上，
高分，求源码！   怎样从FTP服务器上拷文件到本地上，

[解决办法]
procedure TForm1.ConnectButtonClick(Sender: TObject);
begin
ConnectButton.Enabled := false;
if IdFTP1.Connected then
try
if TransferrignData then IdFTP1.Abort;
IdFTP1.Quit;
finally
DirectoryListBox.Items.Clear;
ConnectButton.Caption := '连接 ';
ConnectButton.Enabled := true;
ConnectButton.Default := true;
end
else
try
IdFTP1.User := UserIDEdit.Text;
IdFTP1.Password := PasswordEdit.Text;
IdFTP1.Host := FtpServerEdit.Text;
IdFTP1.Port:=StrtoInt(PortEdit.Text);
IdFTP1.Connect;
DirectoryListBox.Items.Clear;
IdFTP1.List(DirectoryListBox.Items);
finally
ConnectButton.Enabled := true;
if IdFTP1.Connected then
begin
ConnectButton.Caption := '断开 ';
ConnectButton.Default := false;
end;
end;

end;

procedure TForm1.UsePassiveClick(Sender: TObject);
begin
IdFTP1.Passive := UsePassive.Checked;
end;

procedure TForm1.DownloadButtonClick(Sender: TObject);
var fileName:string;
begin
if Not IdFTP1.Connected then exit;
Filename:=Trim(Midstr(DirectoryListBox.Items[DirectoryListBox.ItemIndex],40,90));
IdFTP1.TransferType := ftBinary;
BytesToTransfer := IdFTP1.Size(FileName);
IdFTP1.Get(FileName, EditPath.Text+FileName, true);
end;


[解决办法]
源码已发.