Schau mal in die Hilfe zu "getTickCount", aber achtung dies ist nicht die benötigte Prozessorzeit, sondern dann die reale Zeit.
also, da ich gerade gute Laune habe:
Delphi-Quellcode:
var
startZeit, endZeit: cardinal;
begin
startZeit:= getTickCount;
// hier mach, was du machen musst
endZeit:= getTickCount;
if endZeit > startZeit then endZeit:= endZeit -getTickCount
else endZeit:= 0; // kann selten vorkommen, grund siehe windows-hilfe
end;
Wer später bremst ist eher tot.