[dec]

Hola,

Suponiendo que vayas a utilizar un mismo método (evento) para realizar la validación, se trata de "hacérselo saber" a los componentes oportunos. Es decir, por ejemplo:

Código Delphi [-]

implementation

procedure TForm1.SharedMethod(Sender: TObject);
begin
  /* Aquí puedes hacer lo que necesites */
end;

procedure TForm1.OnCreate(Sender: TObject);
begin
  Button1.OnClick := SharedMethod();
  Button2.OnClick := SharedMethod();
  Button3.OnClick := SharedMethod();
  /* */
end;