Nächsten Tag berechnen!

[generic]

benutze bitte die codetags.

Benutze doch die Delphi Funktionen für die Datumprüfung.
Das ist kürzer und du brauchst dein Grips nicht für sowas banales verschwenden.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  d: TDate;
  t,m,y: word;
begin
  try
    d:=EncodeDate(
      strtoint(edt_jahr.text),
      strtoint(edt_monat.text),
      strtoint(edt_tag.text)
    );
    inc(d);
    DecodeDate(d, y,m,t);
    caption:=Format('%d %d %d',[t,m,y]);
  except
    MessageDlg('Unsinn', mtError, [mbOK], 0);
  end;
end;

edit: inc(d) vergessen

Willkommen in der DP