DateTime funktion fejler

Nogen der kan hjælpe med at få min lille DateTime funktion til at virke?

Funktionen ->

function TMainForm.TimeLeft(tDate,tTime :TDateTime): string;
var
FHour, FMin, FSec, FMlsec: word;
strDays, strHour, strMin, strSec, strInfo: string;
ToGo: TDateTime;
begin
  ToGo := tTime - Time;
  DecodeTime(ToGo, FHour, FMin, FSec, FMlsec);

  if FSec > 0 then FSec := FSec-1
  else begin
    FSec := 59;
    if FMin > 0 then FMin := FMin-1
    else begin
      FMin := 59;
      if FHour > 0 then FHour := FHour-1
      else begin
        FHour := 23
      end;
    end;
  end;

  strDays := DateToStr(tDate)+' '+ TimeToStr(tTime);
  strDays := IntToStr(DayDiff(now,StrToDateTime(strDays)));
  strHour := IntToStr(FHour);
  strMin := IntToStr(FMin);
  strSec := IntToStr(FSec);
 
  if strDays = '0' then begin
    if strHour = '0' then begin
      if strMin = '0' then
        strInfo := strSec + 's'
      else
        strInfo := strMin + 'm ' + strSec + 's'
    end else begin
      strInfo := strHour + 'h ' + strMin + 'm ';
    end;
  end else begin
    strInfo := strDays + 'd ' + strHour + 'h ';
  end;
 
  Result := strInfo;
end;


Når der er under 24 timer til fra den samme tid som er sat virker det ikke!
fx. 04-04-2003 - 14:00:00 og så kl bliver 14:00:00 d. 03-04-2003 så begynder den bare og tælle op indtil det bliver d. 04-04-2003 hvor den så tæller normalt som den skal
dvs den tænker slet ik på datoen + når der er 1d 0h skal der så stå 23h 59m