Zeitdifferenz "ordentlich" formatiert darstellen

[CJ_lux]

ich hab folgendes:

Delphi-Quellcode:

function ZeitBis(Hours, Mins: String): TTime;
var
  AThen: TDateTime;
  AHours, AMinutes,ASeconds: Word;
begin
  AThen := EncodeTime(StrToInt(Hours), StrToInt(Mins), StrToInt(Secs), 0, 0);

  ASeconds := SecondsBetween (Time, AThen);
  AMinutes := MinutesBetween(Time, AThen);
  AHours := AMinutes div 60;
  Dec(AMinutes, AHours * 60);

  Result := EncodeTime(AHours, AMinutes,ASeconds, 0, 0, 0);
end;

fehler(?)

1. StrToInt(Secs) --> Secs soll declariert werden (?!)
2. ja, und wie du schon sagtest... zuviele Parameter