怎么在多个动态生成的edit中选出被鼠标选中的那个edit

如果能，如何实现？？（ delphi ）

procedure TForm1.Onclick(Sender: TObject);
var
aObj: TEdit;
begin
aObj := TEdit(Sender);
aObj.Text := aObj.Name + '点中你了';

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.OnClick := OnClick;
Edit2.OnClick := OnClick;
end;