Delphi-PRAXiS - Delphi down/upload und ETE

hallo,

ich möchte in meinem programm angeben wie lang der down/upload noch dauert. aber ich krieg das grad net hin. ich hab ja eigentlich alle nötigen werte. Anfangszeit, Aktuelle Zeit, Gesamtgröße, Aktuelle Größe.
ich krieg das aber grad net ins verhältnis gesetzt. :cry: kann mir jmd helfen?

Delphi-Quellcode:

			procedure TgMailFTP.OnWorkBegin(ASender: TObject; AWorkMode: TWorkMode; AWorkCountMax: Integer);

begin

  if AWorkCountMax <> 0 then

    OnWorkBeginMax := AWorkCountMax;

  ProgBar.Max := OnWorkBeginMax;

  ProgBar.Position := 0;

  FWorkStarted := GetTickCount;

  Application.ProcessMessages;

end;

Delphi-Quellcode:

			procedure TgMailFTP.OnWork(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Integer);

begin

  ProgBar.Position := AWorkCount;

  form.caption := '?';

  Application.ProcessMessages;

end;