Uhrzeit Rest Min und Sec

[Patrick Star]

Hallo

habe es nun so gelöst. Zumindest tut es das was ich möchte.
Logo kann man das bestimmt noch verbessern. Also mich nicht gleich "Zerreissen".Ich freue mich das es funzt.

Code:

procedure TForm1.Timer1Timer(Sender: TObject);
var stunde, minute, sekunde, msec,XStunde,XSekunde : word;

begin
decodeTime (NOW, stunde, minute, sekunde, msec);

    labelA.caption:= 'Zeit  ' + timeTostr(now);      // aklt. Uhrzeit
     labelB.Caption:= 'Stunde  ' + intTostr(stunde);  // atkl. Stunde
      labelC.Caption:= 'Minute  ' + intTostr(minute);  // aktl. Minute
       labelD.Caption:= 'Sekunde  ' + intTostr(sekunde); // aktl. Sekunde

        XStunde:= 60 - minute;
         LabelAktlMinute.Caption := intTostr(XStunde);

        XSekunde:= 60 - sekunde;
         LabelAktlSekunde.Caption := intTostr(XSekunde);

          RestStunde.Caption := '-  ' + intTostr(XStunde)+ ':' + intTostr(XSekunde);
end;

end.

So geht es mal wie schon gesagt.

Danke an alle die mir ein paar Tips gaben.

Patrick