FTP Upload Problem

[Tim-94]

Hallo ich habe schon sehr sehr viele Dinge probiert, um diesen mir unbekannten Fehler zu beseitigen, aber es hat bisher noch nichts gebracht.
Ich möchte ein paar Dokumente auf meinen Server hochladen. Hierfür benutze ich folgendne Code:

Delphi-Quellcode:

// Upload
//ftp := TidFTp.Create(nil); // diesen Befehl habe ich bei dem OnCreate-Ereignis...
//ftp.free                  // ...und diesen bei OnDestroy
ftp.Username := UsernameEdit.Text;
ftp.Password := PWEdit.Text;
ftp.Host := HostEdit.Text;
//ftp.Port := 21;
sleep(100);

ftp.Connect;
ftp.ChangeDir('Database/Test'); // Verzeichnis wechseln
ShowMessage(ftp.RetrieveCurrentDir);// Was bedeutet dieser Code
ftp.Put(GetApplicationDirectory+'Database/Themen.txt', ExtractFileName(GetApplicationDirectory+'Database/Themen.txt'));
StatusBar.SimpleText:='Themen wurden erfolgreich hochgeladen!';
ftp.Disconnect

Dieser Fehler tritt in Delphi auf:

Erste Gelegenheit für Exception bei $75FC42EB. Exception-Klasse EIdSocketError mit Meldung 'Socket Error # 11004'. Prozess SDIApp.exe (12492)


Schonmal vielen Dank im vorraus