INDY/FTP UPLOAD funktioniert nicht! )-;

[the_seed]

probier mal....

Code:

procedure TForm1.Button3Click(Sender: TObject);

begin 

try
try
  IdFTP1.Connect;
finally
  Opendialog1.Execute;
  IdFTP1.Put(Opendialog1.FileName,Extractfilename(Opendialog1.FileName));
  end;
except
  Label1.Caption:='Fehler';
  end;
  IdFTP1.Quit;
  end;