procedure TForm1.DownloadToFtp(host,login,pass,path,name:string);
var
handal:DWORD;
conn_param,inet_open : hinternet;
begin
 inet_open := internetopen('iexplore',INTERNET_OPEN_TYPE_DIRECT,nil,nil,0);
 conn_param := internetconnect(inet_open,Pchar(host),21,Pchar(login),Pchar(pass),INTERNET_SERVICE_FTP,INTERNET_FLAG_PASSIVE,0);
 sleep(100);
 ftpputfile(conn_param,Pchar(path),Pchar(name),FTP_TRANSFER_TYPE_UNKNOWN,0);
 internetclosehandle(conn_param);
 internetclosehandle(inet_open);
end;