[JCooper]

На скорую руку пример для кнопки (сделай этот обработчик общим для нескольких кнопок)

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
   with Sender as TButton do
   begin
      case Tag of
      1:{some action};
      2:{some action};
      3:{some action};
      end;
   end;
end;