Как округлить милисекунды в кол-во сек и мили сек?

[XerSon]

Делаю так:

function msectosec(msec: integer): integer;
begin
  msectosec := Trunc(msec / 1000);
end;

...
var
  k: DWord;
begin
k := GetTickCount;
...
{тут что-то делаем}
..'Время генерации: ' +
    IntToStr(msectosec(GetTickCount - k)) + ' сек';
end;

Выводит полное кол-во сек, а мне надо: 5 сек 300 мсек

Буду рад, всем комментариям и коду!

[Alex Cones]

Секунды:

Millsec div 1000

Остаток миллисек:

Millsec mod 1000

[XerSon]

Спасибо, все получилось.