down/upload und ETE

[fwsp]

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. 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;