Abarbeitung in einer Funktion ist unlogisch

[Gruber_Hans_12345]

probiers mal so ...

Zitat von SMERK:

Delphi-Quellcode:

procedure TForm1.Upload_ButtonClick(Sender: TObject);
begin
  Upload_Label.Visible := True;
  Application.ProcessMessages;  // dem Programm auch zeit geben das label anzuzeigen
  dir := ShellListView1.SelectedFolder.PathName;
  datei := ExtractFilename( ShellListView1.SelectedFolder.PathName);
  FTP.Put(dir,datei);
end;