[cecam]

Asignales a todos la misma funcion clik y los discriminas/diferencias de uno u otro por el Sender

procedure TfrmMain.Button1Click(Sender: TObject);
begin
  If     sender=Button1
  then
  else
  If     sender=Button2
  then
  [...]
end;

Saludos!!