Hogyan lehet mérni az futási időt a freepascalban és borland pascalban, gettime nélkül?

Egy példa, ami részben Benkő Tiborné Free Pascal című könyvéből való:

Program Meres;

uses Classes, SysUtils, DateUtils;

type TSS=(start,stop);

procedure idomero(ss:TSS; ido:TDateTime);

const StartTime : TDateTime=0;

var dt : integer;

begin

case ss of

start: begin

starttime:=ido;

write('Start...');

end;

stop: begin

dt:=MilliSecondsBetween(Ido,StartTime);

write('Stop ,',dt/1000:7:4,' mp -');

end;

end;

end;

begin

Idomero(start,time);

{ide jöhet a kódod aminek a futási idejét mérni akarod}

idomero(stop,time);

end.

var ido_s:TDateTime;

procedure ido_start;inline;

begin

ido_s:=now;

end;

function ido_stop:double;inline;

var s:TDateTime;

ii,ist:comp;

begin

s:=now;

ii:=TimeStamptoMsecs(DateTimetotimestamp(ido_s));

ist:=TimeStamptoMsecs(DateTimetotimestamp(s));

ido_s:=ist-ii;

end;