Как удалить Edit, если на нём фокус?

[Stein21]

Здраствуйте.
Создаю динамически много едитов, и надо их удалять, при потери ими фокуса, или сразу, как только в них не будет текста.
Второй вариант отдал общему обработчику события onkeypress

procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char);

begin
panel1.Caption:=tedit(sender).Name;
if (sender as tedit).Text='' then begin edit1.setfocus;
FreeAndNil(tedit(sender));
end;
end;

Но он выдаёт ошибку. Хотя обработчик события потери фокуса удаляет Edit без проблем.
Подскажите пожалуйста, в чём проблема?
И если кто знает, как просто убрать фокус ввода со всех Edit'ов??

[Баламут]

А не правильнее ли будет так сделать?

procedure TForm1.Edit1Change(Sender: TObject);
begin
if TEdit(sender).Text = '' then TEdit(Sender).Free;
end;

[Stein21]

Болшое спасибо - работает
Ещё вопросик: как поставить фокус ввода на только что созданный Edit?
with TEdit.create(self) do begin
Parent:=Panel1;
Font.Color:=clblue;
left:=x_plus;
Top:=y_plus;
Ctl3D:=false;
autoselect:=false;
if key<>#13 then text:=key;
onchange:=edit1.onchange;
onkeypress:=form1.onkeypress;
onexit:=editExit;
(self).setfocus;
end;
Так не получается

[NOOB]

просто "setfocus;" убери "(self)"

[_Engine_]

Просто SetFocus;