Art Warteschleife für Up/Downloads

[RobertS]

Nabend,

ich habe alles soweit fertig doch jetzt habe ich gedacht das mit dem hochladen ist ja nur eine Kleinigkeit..
ich habe mir das Tut bei :http://www.tutorials.delphi-source.d.../file004.shtml durch gelesen und auch alles so gemacht wie dort beschrieben.

Delphi-Quellcode:

procedure TProg.FormCreate(Sender: TObject);
begin
clicked:=0;
ftp.Host:='xxx';
ftp.Username:='xxx';
ftp.Password:='xxx';
ftp.Connect;
ftp.Login;
ftp.ChangeDir('/bilder/');
if Listbox1.Count < 1 then uploadbt.Enabled:=False
else
 uploadbt.Enabled:=True
end;

Delphi-Quellcode:

procedure TProg.uploadbtClick(Sender: TObject);
begin
//showmessage(extractfilename(ListBox1.Items[ListBox1.ItemIndex]));
ftp.Put(extractfilename(ListBox1.Items[ListBox1.ItemIndex]));
end;

Was ich dann aber auf dem FTP erhalte ist:
zb: stou.UGaapv
oder .nfsE125
Also reiner Schrott..was mache ich falsch?

Danke schonma

mfg Robert

Was mir grade noch auffält das ich beim schließen ein "Stack Überlauf" Fehler bekomme...