[lmikle]

Код:

procedure TimeDiv(ASrc, ADivider : Integer; var ADiv, AMod : Integer);
begin
  ADiv := ASrc div ADivider;
  AMod := ASrc mod ADivider;
end;

var
  msecs : Integer;
  dd, hh, mm, ss, ms : Integer;
begin
  msecs := 123456789; // Начальное значение, должно задаваться извне

  TimeDiv(msecs, 1000, ss, ms); // сек и мсек из мсек
  TimeDiv(ss, 60, mm, ss); // мин и сек из сек
  TimeDiv(mm, 60, hh, mm); // часы и мин из мин

//  TimeDiv(hh, 24, dd, hh); // дни и часы из часов
  
  ShowMessage(Format('%d часов %d минут %d секунд %d мсекунд',[hh,mm,ss,ms]);
end;