不行了，求助了，急，很多Edit控件共享一个onExit 过程

Question

方案一：
我在公共unit（U_Public）写了一个过程procedure GetText(b: TEdit);
begin
  b.Text := trim(b.Text);
end;然后我想所有Edit控件的exit事件都调用这个过程我写：Edit1.onExit := U_Public.GetText(Edit1);   失败方案二：
procedure TF_Input.Edit_T2Exit(Sender: TObject);
begin
  U_Public.GetText(Edit_T2);
end;procedure TF_Input.Edit_T3Exit(Sender: TObject);
begin
  U_Public.GetText(Edit_T3);
end;因为有一个参数传递问题，所以要写很多很多行，虽然每个都一样，但是一多脑子就混了，而且程序也太乱
于是我就想这样：
procedure TF_Input.Edit_T3Exit(Sender: TObject);
begin
  U_Public.GetText(sender);
end;那么在formcreate中就把所有edit的onexit指向这个过程就行了，结果失败了，怎么办

Answer 1

TEdit(Sender).Text := Trim(TEdit(Sender).Text);

Answer 2

procedure TF_Input.Edit_T3Exit(Sender: TObject);
begin
  U_Public.GetText(Edit_T3);
end;这里面的参数用self行不行，指明是本控件

Answer 3

我改了一下，  U_Public.GetText(TEdit(Sender));   结贴了，十分感谢