Du vergisst dein IdFTP wieder freizugeben und das ganze in Ressourcenschutzblöcke zu packen:
Delphi-Quellcode:
ftp:=TidFtp.Create;
with ftp do
begin
try
Host := '
people-ftp.freenet.de';
Username := '
benutzername';
Password := '
passwort';
Passive := true;
Connect;
Put('
test.exe', '
test.exe', false);
Disconnect;
finally
ftp.Free;
end;
end;