Zeitrechner funktioniert nicht wie er soll

[Chucky_88]

Delphi-Quellcode:

Procedure TUmrechner.BtEndzeitClick(Sender: TObject);
var
Eingabe, gZeit, gStunden, gMinuten, gSekunden      : Integer;
sysStunden, sysMinuten, sysSekunden, sysMsekunden: word;
Aktuell                                          : TDateTime;
begin
  if BtSek_zu_St.visible = true
  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));

  Aktuell   := Now;
  DecodeTime(aktuell, sysStunden, sysMinuten, sysSekunden, sysMsekunden);

  gZeit     := (Eingabe + (sysStunden * 3600) + (sysMinuten * 60) +  (sysSekunden));
  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';