[MTF]

Добрый день возникла проблема с написанием функции преобразование миллисекунд в формат времени

проблемы с делением !!!!

Код:

function TForm1.GetTimeFromSecs(msec : Integer) : String;
var
  hh, mm, ss ,sss: integer;
begin
  ss :=  msec div 1000;
//  mm := msec mod 6000;
//  hh := mm 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;