怎么给动态添加的控件设置事件(20分)

现在动态加了一个控件 怎么样才能让它得到焦点时触发一个事件，请高手帮帮忙！谢谢
分只有这么多 都是等了几天才累计起来的~
procedure TForm1.Button1Click(Sender: TObject);
var
people_edit1:TEdit;
begin
people_edit1 := TEdit.Create(self);
people_edit1.Parent := form1;
people_edit1.left := 168;
people_edit1.Top:= 2;
people_edit1.Width:= 241;
people_edit1.Height:= 21;
people_edit1.Name:='aaa';
people_edit1.Text:='';
end;

onGetFocus

OnEnter := GetFocus;
在tform1里申明一个
procedure GetFocus(Sender: TObject);

感谢~