[Sapt_86]

Intenta con esto:

Código Delphi [-]
procedure TForm1.btn1Enter(Sender: TObject);
begin
 ShowMessage('HOLA');
end;

procedure TForm1.edt1Enter(Sender: TObject);
begin
  btn1Enter(sender);
end;