Ich habe die Function getestet, bei mir war alles OK... ich habe gerade etwas gesehen:
CheckString ist ja ne function:
Delphi-Quellcode:
// wenns nicht zu except springt, ist alles in ordnung
CheckString(EditDatumEingabe.Text);
lbltest.Caption := DateToStr(Datum);
Bei dir wird Datum gar nicht geschrieben und nicht die if abfrage übersprungen. Versuche mal das hier:
Delphi-Quellcode:
// wenns nicht zu except springt, ist alles in ordnung
Datum:=CheckString(EditDatumEingabe.Text);
lbltest.Caption := DateToStr(Datum);