Fehlermeldung durch EditMaske

[bfr]

ich bin noch anfänger auf delphi und kenne deshalb noch nicht soviele befehle. Mit OnExit(wird doch aktiv wenn die Maske verlassen wird oder?) habe ich gerade ausprobiert aber es hat nicht geholfen. Wenn ich einen BreakPoint auf das Begin der Prozedur setzte wird dieser nicht erreicht vor der Fehlermeldung. Wenn ich OnChange benutzte prüft er bei jedem eintippen einer Zahl ob die Länge stimmt oder noch Unterstriche vorhanden sind und bringt dann jedes mal die Nachricht.

Hier mal die Prozedur die ich dazu geschrieben habe:

Delphi-Quellcode:

procedure TfrmMain.laengepruefen(Sender: TObject);
begin
if length(txtgeburtstag.Text) <> 8 
   then Showmessage('Das Datum muss 8 Zeichen lang sein');
end;

Mit Try except weiß ich leider nicht wo ich dies ansetzten soll. Ich hoffe das du mir helfen kannst und schonmal danke für deine Mühe.