TidFTP Uploadproblem bei größeren Dateien

[Luckie]

Delphi-Quellcode:

procedure TMFTP.Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Integer);
var
  S: string;
begin
  //FTPClient.Noop;
  If (Global.IdFTPPut) Then
  begin
    //Errechnen der Transfergeschwindigkeit:
    S := Transfergeschwindigkeit(AWorkCount);
    FMain.lb_anzeige.Caption := '';
    case AWorkMode of
      wmWrite: FMain.lb_anzeige.Caption := Global.sendung + #13#10 +
      Global.downloadspeed + 'Uploade speed ' + S;
    end;

    //Aktualisieren der Fortschrittsanzeige:
  end;
  FMain.prba_datei.Position := AWorkCount;
  FMain.prba_datei.Update;
  FMain.Showapplication;
{$IFDEF Adminrechte}
  FAdmin.mem_anz.Lines.Add('OnWork: '+IntToStr(AWorkCount));
{$ENDIF}
end;

Mach hier doch mal ein Application.ProcessMessages rein, damit deine Oberfläche überhaupt eine Chance hat sich zu aktualisieren.