Datum auf Syntax überprüfen

[faux]

Hallo!

Ich will überprüfen, ob in einem Edit ein korrektes Datum eingegeben wurde. Mein Edit akzeptiert genau 6 Ziffern. Diese sollen dann im Format yymmdd in ein Datum umgerechnet werden. Zur Zeit habe ich das so gelöst:

Delphi-Quellcode:

try
  wrong_limit := false;
  old := (Length(Edit8.Text) = Edit8.MaxLength)
    and (Now > StrToDate(Copy(Edit8.Text, 5, 2)+'.'+Copy(Edit8.Text, 3, 2)+'.'+Copy(Edit8.Text, 1, 2)));
except
  on EConvertError do
  begin
    old := true;
    wrong_limit := true;
  end;
end;

Wie löst man das denn wirklich? Ich bezweifle dass die try-except-end - Methode hier gut geignet ist.
Mal davon abgesehen, dass ich beim Debuggen nach jedem Tastenschlag einen Fehler bekomme...

Grüße
Faux