StrToDate Fehler

[PeterPanino]

Hallo,

folgender Fehler tritt auf:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  TodayStr: string;
  TodayDate: TDate;
begin
  TodayStr := DateToStr(Today);
  Form1.Caption := TodayStr;
  TodayDate := StrToDate(TodayStr);
end;

Fehlermeldung: '06-Apr-2007' ist kein gültiges Datum'

Wieso hat Delphi Probleme einen String mit StrToDate zu dekodieren, den es gerade vorher mit DateToStr kodiert hat? Die lokalen Regional-Einstellungen sind ja bei beiden Vorgängen gleich!

Es würde auch nichts nützen, wenn ich meine regionalen Einstellungen für das kurze Datumsformat ändere, denn ich muss ja immer damit rechnen, dass ein Anwender meines Programms genau diese regionalen Einstellungen verwendet!