Zeitrechner funktioniert nicht wie er soll

[Chucky_88]

Hallo,
ich habe vor ein programm zu programmieren das eine eingabe braucht... Hier handelt es sich um Sekunden. Wenn ich dann 172800 Sek eingebe kommt als erstes eine Anzeige mit Stunden:Minuten:Sekunden. In dem Beispiel wären das 42 Stunden. DAnn gibt es daneben noch einen Button. Er soll bewirken dass die eingegebene zahl zu der Systemzeit dazu addiert wird und dann die Zeit berechnet wird wann das ist.
Das wären dann 2Tage + uhrzeit. Jedoch geht das mit der Uhrzeit irgendwie nicht :-/ fragt mich nicht wieso ... Es funtzt einfach nicht das die Systemzeit dazu addiert wird. Der rest klappt alles... Bitte helft mir:

Delphi-Quellcode:

procedure TUmrechner.BtEndzeitClick(Sender: TObject);
var
Eingabe, aStunden, aMinuten, aSekunden, gZeit, gTage, gStunden, gMinuten, gSekunden : Integer;
TimeStruct: TSystemTime;

begin
  if BtMin_zu_St.visible = false
  then begin
    Eingabe        := StrToInt (EdEingabe.Text);
    aStunden       := Eingabe div 3600;
    aMinuten       := (Eingabe - (aStunden * 3600)) div 60;
    aSekunden      := Eingabe - ((aStunden * 3600) + (aMinuten * 60));
    EdAusgabe.Text := (IntToStr (aStunden)) +' : ' +(IntToStr (aMinuten)) +' : ' +(IntToStr
    (aSekunden));

    gZeit     := (Eingabe + (TimeStruct.wHour * 3600) + (TimeStruct.wMinute * 60) + 
    (TimeStruct.wSecond));
    gTage     :=  gZeit div 86400;
    gStunden  := (gZeit - (gTage * 86400)) div 3600;
    gMinuten  := (gZeit - ((gTage * 86400) + (gStunden * 3600))) div 60;
    gSekunden :=  gZeit -  ((gTage * 86400) + (gStunden * 3600) + (gMinuten * 60));

    if gZeit   = 0
      then EdEndzeit.Text := IntToStr (gStunden) + ':' + IntToStr (gMinuten) + ':' + (IntToStr
      (gSekunden) + ' Uhr')
      else
      if gTage = 1
        then EdEndzeit.Text := ' Morgen um ' + IntToStr (gStunden) + ':' + IntToStr (gMinuten) + 
        ':' + IntToStr (gSekunden) + ' Uhr'
        else EdEndzeit.Text := ' In ' + IntToStr (gTage) + ' Tagen um ' + IntToStr (gStunden) + 
        ':' + IntToStr (gMinuten) + ':' + IntToStr (gSekunden) + ' Uhr'
  end;
end.

MfG Chucky