>>262 ダメな理由は TDateTime型は浮動小数点で１日単位のデータだから

だから、割算が必要
例：
　Caption:= FormatDateTime('hh:nn:ss', GetTickCount/(1000*60*60*24) );

---------------------------------------------
　ついでに、それを使わないで整数演算でする場合は

var OldCnt:Cardinal;
procedure TForm1.Button1Click(Sender: TObject);
var NewCnt,dt:Cardinal;
begin
NewCnt:=GetTickCount;
dt:=NewCnt-OldCnt;
Caption:= format('%02d:%02d:%02d.%02d',
　 [ dt div(60*60*1000)
　 ,(dt div (60*1000)) mod 60
　 ,(dt div (1000)) mod 60
　 ,(dt div (10)) mod 100]);
OldCnt:=NewCnt;
end;