Edit mit variabler Nummer

[traudl]

Hallo ich noch mal. Ich möchte daß das Editfeld den Focus solange hat bis der User was eingibt.
Jetzt will er ein Objekt. Was ich aber eingeb geht nicht.

Code:

procedure KeepFocus(e: TEditNew);
var s: String;
begin
    s:= e.Text;
    If s = ''
    then begin
    TextStart;
    e.SetFocus;
    end;
end;

procedure TForm6.EditExit(Sender: TObject);
begin
     KeepFocus((Sender as TEditNew))
end;

Code:

    { Tischeingabefelder }
  for i := 0 to length (Edit_L) - 1
    do begin
    Edit_L[i] := TEditNew.Create(Self);
    Edit_L[i].Parent := Self;
    Edit_L[i].Text := 'Edit_L'+IntToStr(i);
    Edit_L[i].Name :='Edit_L'+IntToStr(i);
    Edit_L[i].Left := 184;
    Edit_L[i].Height := 24;
    Edit_L[i].Width := 45;
    Edit_L[i].Font.Style := [fsBold];
    Edit_L[i].Font.Name := 'Arial';
    Edit_L[i].Font.Height := 15;
    Edit_L[i].TabStop := True;
    Edit_L[i].TabOrder := i;
    Edit_L[i].OnExit := EditExit();

ich weis wirklich nicht wie ich das tun soll. Bei einem normalen Edit Feld wird das onExit Event anders ausgewertet, ich weis aber nicht wie. Hat jemand ne Idee ???



Gruß Udo