FTP frage

[Larsi]

Delphi-Quellcode:

function putfile(server, username, password, localfile, remotefile: string; port: word = 21): boolean;
var
  hopen, hconnect: HINTERNET;
begin
  hopen := InternetOpen('myagent', INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);
  hconnect := InternetConnect(hopen, pchar(server), port, pchar(username), pchar(password), INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0);
  Result := FtpPutFile(hconnect, pchar(localfile), pchar(remotefile), FTP_TRANSFER_TYPE_UNKNOWN, 0);
  InternetCloseHandle(hconnect);
end;

putfile('ftp:\xxxx', 'xxx', 'xxx', 'C:\Datei.txt', '/Datei.txt'); So sieht der ftp-upload aus. kann ich die connection eigentlich schließen mit irgendnem befehl???
Also wenn ich die grad hochgeladene textdatei mit ner anderen procedure widerdownloade klappt das zwar beim ersten versuch, aber wenn ich dann einen andern text uploade und den dann wieder downloade bleibt das immer der vom ersten mal. wenn ich zwischen durch, das fenster schließe gehts, aber ich möchte jez nicht nach jedem upload das fennster schließen wollen, also war jez meine frag ob des daran liegt, dass man den upload noch irgendwie beednen muss, wenn ja, wie?

MFG Larsi