Geschwindigkeit einer Funktion messen

[Forlan]

Müsste es so nicht klappen????

Delphi-Quellcode:

procedure TForm1.Go;
var start,stop,zeit : integer;
begin
  start := GetTickCount;
     //Hier deine Funktion
  stop := GetTickCount;
  zeit := stop-start;
  ShowMessage('Gebrauchte Zeit '+ IntToStr(zeit) + ' ms';
end;