Delphi-Quellcode:
procedure TestTime;
var
Vorher, Nachher, Verstrichen: TDateTime;
begin
Vorher := now;
// hier passiert das, was Du messen willst
Nachher := now;
Verstrichen := Nachher - Vorher;
end;
In der Variablen Verstrichen vom Typ TDateTime steht nun also die Differenz vom Zeitpunkt vorher und nachher. Den Wert kannst Du dann einfach weiterverwenden. Dazu gibt die Onlinehilfe auch gute beispiele.