[Decoding]

Както так:

Код:

 
procedure TForm1.Button1Click(Sender: TObject);
var
  t1, t2, t: TTime;
  h1, h2, m1, m2, s1, s2, ms1, ms2: WORD;
begin
   h1 := 10;
   m1 := 10;
   s1 := 0;
   ms1 := 0;
   t1 := EncodeTime( h1, m1, s1, ms1 );
   h2 := 0;
   m2 := 10;
   s2 := 0;
   ms2 := 0;
   t2 := EncodeTime( h2, m2, s2, ms2 );
   t := t1 - t2;
   ShowMessage( TimeToStr( t ) );
end;