Berrechnungsrestdauer anzeigen lassen.

[Armageddon]

Hallo,

ich hab mal eine Frage. Und zwar. Wie mach ich es am besten wenn ich in meinem Programm per Klick auf einen Button eine Berrechnung starte und während diese läuft möchte ich die ungefähre Zeit bis zum Ende dieser Berrechnung anzeigen.

Code etwa so:

Delphi-Quellcode:

var
i, ai: Integer;
start, ms: Integer;
Dauer, Restdauer: Integer:

begin;
for i := 0 to ai do
  begin;
    start := GetTickCount;
    begin;
      //Berechne usw. mach halt was!
      //bla bla bla viele Sachen machen usw.!
    end;
    ms := GetTickCount - start;
    Dauer := ms * ai;
    Restdauer := ms * (ai - i);
    Panel1.Caption := IntToStr(Dauer);
    Panel2.Caption := IntToStr(Restadauer);
  end;
end;

Aber irgendwie haut das nicht hin! Irgendwas mach ich da wohl noch Falsch.

Vielleicht hat irgendjemand schon mal sowas gemacht und kann mir da ein bisserl unter die Arme greifen.

Danke, Arma.