Text Datei auf FTP Server hochladen

[fox67]

Delphi-Quellcode:

x := TStringlist.Create;
x.LoadFromFile(extractfilepath(application.ExeName)+'\'+combobox1.text+'.txt');
x.Add(Datum+'|'+inttostr(Kilometer)+'|'+inttostr(Punkte)+'|'+'Datei');
deletefile(extractfilepath(application.ExeName)+'\'+combobox1.text+'.txt');
x.SaveToFile(extractfilepath(application.ExeName)+'\'+combobox1.text+'.txt');
 if ftp.Connected then
 begin

showmessage(combobox1.Text);
showmessage(Datum+'|'+inttostr(Kilometer)+'|'+inttostr(Punkte)+'|'+ 'Datei');
FTP.Delete(combobox1.text+'.txt');

FTP.Put(combobox1.text+'.txt',extractfilepath(application.ExeName)+'\'+ combobox1.text+'.txt',true);

Hallo es kommt immer die Fehlermeldung das der Dateiname Invalid sei aber er konnte komiuscherweiße ohne Fehlermeldung davor die Datei löschen auf dem ftp server