Вызов события на обработку

void __fastcall TForm2::ComboBox1Click(TObject *Sender)
{
  .... 
 // получившийся заголовок в программе  
 void __fastcall TForm1::DBGrid1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y)  
}

void __fastcall TForm4::DBGrid1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y)
{
   ShowMessage("Mouse Up");
}
//---------------------------------------------------------------------------
void __fastcall TForm4::ComboBox1Change(TObject *Sender)
{
  TShiftState Shift;
  TMouseButton Button;
  int X, Y;
  DBGrid1MouseUp(Sender, Button, Shift, X, Y);
}

class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TDBGrid *DBGrid1;
    TComboBox *ComboBox1;
    void __fastcall DBGrid1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y);
    void __fastcall ComboBox1Change(TObject *Sender);
private:    // User declarations
    void __fastcall MyMethod(); // <<== Вот тут объявление своего метода
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
};

void __fastcall TForm1::DBGrid1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y)
{
  MyMethod();
}
//---------------------------------------------------------------------------
//Вот тут реализация своего метода (руками пишешь)
void __fastcall TForm1::MyMethod()
{
  //Тут какие-то действия...
  ShowMessage("Yes");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
  MyMethod();
}
//---------------------------------------------------------------------------

void __fastcall TForm2::DBGrid1MouseUp(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
  AnsiString Rezh = DBGrid1->SelectedField->Text;
  //***************
  ADOQuery2->Close();
  ADOQuery2->SQL->Clear();
  ADOQuery2->SQL->Add("SELECT Test.vopros, Test.ot1, Test.ot2, Test.ot3, Test.ot4, Test.pr_ot \
                        FROM Tema INNER JOIN Test ON Tema.rezh = Test.rezh \
                        WHERE tema = :Ptema");
  ADOQuery2->Parameters->ParamByName("Ptema")->Value=Rezh;
  ADOQuery2->Open();
}