给动态创建的edit写个获得焦点事件，创建edit必须写到单元里，请高手指点(100分)

我把创建函数 和事件函数都写到窗体代码里 可以实现要求；但是把创建函数写到单元里的话，怎么才能用上写的事件。请高手帮帮忙~贴上代码和思路 ，小弟感激不尽！

事件必须是方法，声明个类方法吧。用class procedure

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,stdctrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
ABU:TCB;
begin
ABU:=TCB.Create(Form1);
end;

end.
==============================
unit Unit2;
interface
uses Forms,stdCtrls,Dialogs;
type
TCB=class
public
constructor Create(AForm:TForm);
procedure MyClick(Sender: TObject);
end;

implementation
constructor TCB.Create(AForm:TForm);
var
AButton:TButton;
begin
AButton:=TButton.Create(application);
ABUtton.Parent:=AForm;
AButton.OnClick:=MyClick;
end;

procedure TCB.MyClick(Sender: TObject);
begin
showmessage('wwww');
end;

end.

看了半天也不是很明白，但，你要获得创建的edit的焦点 就简单的在formcreate 事件中写edit.setFouces 单词应该没写错吧~~这样应该就可以了

谢谢大家 特别是xue5521

xue5521 能留个QQ吗 我想请教你，谢谢 或者加我24685462