[MTF]

Все сделал !!!

Код:

function TForm1.GetTimeFromSecs(msec : Integer) : String;
var
  hh, mm, ss ,sss: integer;
begin
  sss := msec div 1000;
  ss :=  (sss mod 3600) mod 60;
  mm:= (sss mod 3600) div 60 ;
  hh := sss div 3600;
  if hh <> 0 then
  Result:=Format('%2.2d:%2.2d:%2.2d', [hh,mm,ss])
  else
  Result:=Format('%2.2d:%2.2d', [mm,ss]);
end;

Огромное всем спасибо