Edit-Feld im Exit-Ereignis prüfen

[Ati]

Hat leider auch nicht geklappt. Hier mal der Code des onExit-Ereignisses:

Delphi-Quellcode:

procedure TfrmMain.edliefExit(Sender: TObject);
var i,j:Integer;
    lief:String;
begin
  lief:= edlief.text;
  j:=length(lief);
  if j <> 6 then
  begin
  showmessage('Fehlerhafte Lieferanteneingabe. Bitte prüfen!!');
  edlief.clear;
  edlief.SetFocus;
  exit;
  end;
  for i := 1 to length(lief) do
  begin
    if not (lief[1]  in ['A'..'Z']) then
    begin
    showmessage('Fehlerhafte Lieferanteneingabe. Bitte prüfen!!');
    edlief.Clear;
    edlief.SetFocus;
    exit;
    end;
    if not (lief[2]  in ['A'..'Z']) then
    begin
    showmessage('Fehlerhafte Lieferanteneingabe. Bitte prüfen!!');
    edlief.Clear;
    edlief.SetFocus;
    exit;
    end;
    if not (lief[3]  in ['A'..'Z']) then
    begin
    showmessage('Fehlerhafte Lieferanteneingabe. Bitte prüfen!!');
    edlief.Clear;
    edlief.SetFocus;
    exit;
    end;
    if not (lief[4]  in ['A'..'Z']) then
    begin
    showmessage('Fehlerhafte Lieferanteneingabe. Bitte prüfen!!');
    edlief.Clear;
    edlief.SetFocus;
    exit;
    end;
    if not (lief[5]  in ['0'..'9']) then
    begin
    showmessage('Fehlerhafte Lieferanteneingabe. Bitte prüfen!!');
    edlief.Clear;
    edlief.SetFocus;
    exit;
    end;
    if not (lief[6]  in ['0'..'9']) then
    begin
    showmessage('Fehlerhafte Lieferanteneingabe. Bitte prüfen!!');
    edlief.Clear;
    edlief.SetFocus;
    exit;
    end;
  end;
end;

Die Clear-Prozedur sieht wie folgt aus:

Delphi-Quellcode:

Procedure TfrmMain.clear();
var i:Integer;
begin
  for i := 0 to frmMain.ComponentCount -1 do
  begin
  if (Components[i] is TEdit) then
  begin
    (TEdit(frmMain.Components[i]).Clear);
  end;
  end;
  dcb.Text:='';
end;