Hi, ich hab mir das jetzt zwar nicht genau angeguckt, trotzdem ein Tipp: sowas kann man ganz gut mit GetTickCount (liefert Millisekunden seit Systemstart) testen. Du legst dir eine Integer-Variable an und setzt diese vor dem durchlaufen der Procedure so
auf die Anzahl der ms.
Nach dem Durchlaufen kannst du dir dann mit
Code:
Caption := IntToStr(GetTickCount-start);
die Zeit ansehen, die deine Procedure benötigt hat. Das kann manchmal schon aufschlussreich sein.
Gruß, Sebastian