DELPHI 通常计时用TTime,可是若是只是为了计算运行时间能够采用GetTickCountim
t1:=GetTickCount时间
...
..
t2:=GetTickCount
t2-t1获得运行时间,毫秒级的。