function GetTickTimeStr : string;
var GT : cardinal;
H,M,S,Z : word;
begin
GT := GetTickCount;
Z := GT mod 1000;
S := (GT div 1000) mod 60;
M := (GT div 60000) mod 60;
H := (GT div 3600000);
result := format('%d:%.2d:%.2d.%.3d',[H,M,S,Z]); { 0:00:00.000 }
end;