Udregning af minutter mellem to tider

Til udregning af antallet af minutter mellem to tider har jeg følgende forsøgt mig med følgende:

// Antallet af minutter mellem de to tider udregnes
procedure TLogForm.StartTidChange(Sender: TObject);
begin
  if (StartTid.Text = \'\') then StartTid.Text := \'00:00:00\';
  if (SlutTid.Text = \'\') then SlutTid.Text := \'00:00:00\';
  DTid.Text := IntToStr(HourDiff(StrToTime(StartTid.Text),StrToTime(SlutTid.Text)));
end;


med disse funktioner:


function Hours(Time: TDateTime): integer;
var
  H, M, S, MS: word;
begin
  DecodeTime(Time, H, M, S, MS);
  result := H;
end;

function HourDiff(Beginning: TDateTime; Ending:TDateTime): integer;
begin
    Result := Hours(Ending - Beginning);
end;


Problemet er at lige meget hvilken to tider jeg sætter ind resultere Dtid.Text med et 0. Men jeg kan virkelig ikke se hvorfor.