Problem mit Abfangen von ner Datumseingabe

[The_Tremendous]

Hi habe aktuelles Problem:

Ich möchte 3 Arten Datum einlesen lassen können:
- 1.1.2005
- 2005-01-01
- 1. Januar 2005


Das Erste ist mit der Funktion StrToDate kein Problem. Aber die anderen werden von der Funktion nicht akzeptiert. Wie kann ich das Problem lösen??

Delphi-Quellcode:

procedure TfrmDatum.BitBtn1Click(Sender: TObject);
begin
  try
   EinleseDatum := editDatumEingabe.Text;
   Datum:=StrToDate(EinleseDatum);
   // wenns nicht zu except springt, ist alles in ordnung
   lbltest.Caption := DateToStr(Datum);
  except
   // der string war keine gültige Datumseingabe
   editDatumEingabe.Text := '';
   ShowMessage('Der Eingegebene Wert ist kein Zulässiges Datum! Bitte geben Sie ein gültiges Datum ein');
  end;            
end;

Gruß The_Tremendous