[Snake22]

дабл ни о чем не говорит.
сделал такую ф-цию.преобразовывает милисеки к типу TTime,а дальше просто складываю свое время с результвтом функции

Код:

function TimeParser(msec:integer):TTime;
var hh,mm,ss,ms:integer;
begin
ms:=msec;
hh:=0;mm:=0;ss:=0;

If ms>999 then
   ss:=ms div 1000;
ms:=ms mod 1000;
//
If ss>59 then
   mm:=ss div 60;
ss:=ss mod 60;
//
If mm>59 then
   hh:=mm div 60;
mm:=mm mod 60;
Result:=EncodeTime(hh,mm,ss,ms);
end;