DateUtils Problem

[mOzZzI]

Hallo Freunde,
ich habe ein Problem mit der Unit DateUtils.
Ich bin gerade dabei einen Wecker zu basteln, und versuche einen Eintrag in einer ListView zu erstellen, alles klappt auch bis jetzt, leider klappt mein SubItem der Listview mit der Caption "Verbleibende Zeit"
nicht. Hier erstmal ein wenig Code:

Delphi-Quellcode:

procedure TForm1.AddEintrag;
var LI: TListItem;
var Datejetzt: TTime;
var Datelist: TTime;
var resthours: Integer;
var restminutes: Integer;
var restseconds: Integer;
begin
  Datejetzt:=Time;
  Datelist:=StrToTime(Edit1.Text);
  resthours:= HoursBetween(datejetzt,datelist);
  restminutes:= MinutesBetween(datejetzt, datelist);
  restseconds:= SecondsBetween(datejetzt, datelist);
  LI := ListView1.Items.Insert(0);
  LI.Caption := RichEdit2.Text;
  LI.SubItems.Add(RichEdit1.Text);
  LI.SubItems.Add(Edit1.Text);
  LI.SubItems.Add(DateToSTr(DateTimePicker1.Time));
  LI.SubItems.Add(inttostr(resthours)+':'+inttostr(restminutes)+':'+inttostr(restseconds));
end;

Bloß irgendwie zeigt er mir die verücktesten Uhrzeiten an

Grüße Philipp

[Edit]Bsp:
Jetzige Uhrzeit 22:51:30
Restzeit(was angezeigt wird): 22:1371:82280