[__cadetill]

Otra opción que se me acaba de pasar por la cabeza, es utilizar el método de Angel y la variable Sender que se pasa por parámetro para saber desde qué botón ha sido llamado

procedure MiForm.Button1Click(Sender: TObject);
begin
  if Sender = Button2 then
  begin
    // acciones sólo del botón 2
  end;

  // las demás acciones
  ......
end;