Wow, danke ihr beiden. Hat sich schon erledigt, ich habe im DecodeDate(StrtoDatetime()) verwendet und das hat nicht funktioniert. So habe ich eine Hilfsvariable H:=StrtoDatetime(), Decodedate(H, Jahr, Monat, Tag) gemacht und es hat funktioniert.
Außerdem war es noch die Reihenfolge der Befehle. Tut mir leid, ist mein erstes Semester in Turbo Delphi.