Problem mit IdFTP1.Put

[Evalon]

Hallo,
ich möchte ein Programm schreiben mit welchem ich in einem Memo-Feld einen Text schreibe, diesen als html speichere und dann auf den FTP-Server hochladen kann. Dafür benutze ich die Indy FTP-Komponente (IdFTP).

Quelltext:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 ftp.Host:='**************';
 ftp.Username:='*****';
 ftp.Password:='******';
 ftp.Connect;
 Memo1.Lines.SaveToFile(Programmpfad+'abc.html');
 ftp.Put(Programmpfad+'abc.html','abc.html',true);
end;

Wenn ich jetzt aber das Programm starte und Button1 klicke, friert das Programm ein und es tut sich nichts mehr. Kann mir jemand helfen woran das liegen könnte?

Vielen Dank schonmal,
Evalon