Jo, mit GetTickcont solltes funktionieren
Einfach drei variablen dafür erstellen und eine vor die Procedure und eine dahinter setzen, also
Code:
Zeitvor:=gettickcount;
//(deine Procedure)
Zeitnach:=gettickcount;
zeitgesamt:=zeitnach-zeitvor;
LabelAusgabe.caption:=inttostr(zeit div 1000)+','+inttostr(zeit mod 1000)+' s';
Dann hastes in Sekunden angezeigt
