Odejmowanie czasu

Chodzi mi o coś takiego :
a : 1410
b : 1520
c=b-a : 110

Ja bym zrobił rekord, wktórym byłyby trzy pola integer (godz,min,sek) i funkcja obliczania różnicy czas wyglądałaby mniej więcej tak.
var temp : czas;
function odejmij(czas pierwszy, czas drugi)
{
temp.sek:=pierwszy.sek-drugi.sek;
if(temp.sek&lt0)
{
temp.sek:=temp.sek+60;
temp.min:=temp.min-1;
}
temp.min:=pierwszy.min-drugi.min;
if(temp.min&lt0)
{
temp.min:=temp.min+60;
temp.godz:=temp.godz-1;
}
temp.godz:=pierwszy.godz-drugi.godz;
if(temp.godz&lt0)
{
temp.godz:=temp.godz * (-1);
}

To był pseudopascalowy kod, w którym będą błędy ale po przeróbce powinien działać.

--

na razie przyszlo mi do glowy tylko jedno rozwiazanie :)

var
TimeA,TimeB: TDateTime;
begin
TimeA := StrToTime('1410');
TimeB := StrToTime('1520');
Edit1.Text := TimeToStr(TimeB-TimeA);
end;

jak wymysle albo znajde cos lepszego to dam znac :)

--
-=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ lks16@tenbit.pl ]=-

Metoda LKS-a jest wystarczająca.
LKS dzięki.
{brawo} {brawo} {brawo} {brawo}