시간차 : 0002.010 (시간차를 실수로 표현하고 싶습니다. 분초.밀리초) 구하기

function TForm1.GetTimeDif(Time1 , Time2 : TTime) : Double;
var
TimeDif : TTime;
Hour, Sec, Min, mSec : Word;
begin
TimeDif := Time2 - Time1;
DecodeTime(TimeDif, Hour, Min,Sec, mSec);
Sec := Hour*3600+Min*60+Sec;
Result := Sec+(mSec/1000);
end;

procedure TForm1.Button3Click(Sender: TObject);
var
time1, Time2 : TTime;
res : Double;
begin
Time1 := EncodeTime(07,08,00,000);
Time2 := EncodeTime(07,08,02,010);
Res := GetTimeDif(Time1, Time2);
ShowMessage(FormatFloat('0000.0000',Res));
end;