Hallo,
versuche es einmal damit:
Delphi-Quellcode:
...
for i := 0 to ai do
begin
start := GetTickCount;
begin
//Berechne usw. mach halt was!
//bla bla bla viele Sachen machen usw.!
end;
Panel1.Caption:=IntToStr((GetTickCount-start) div 1000)+' Sekunden';
end;