VCL

private:    // User declarations

 void __fastcall LeftFunction(TObject *Sender);

public:     // User declarations
        __fastcall TForm1(TComponent* Owner);

void __fastcall TForm1::LeftFunction(TObject *Sender){
 ShowMessage("Test");
}

TForm1->BitBtn2->OnClick = TForm1::LeftFunction;

void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol,
      int ARow, TRect &Rect, TGridDrawState State)
{
    UINT uFormat = DT_LEFT | DT_VCENTER /*| DT_WORDBREAK*/  ; //по умолчанию влево
    switch (ACol)
    {
      case 1:
        uFormat = DT_CENTER  | DT_VCENTER ;//по центру
      break;
      case 2:
      case 4:
        uFormat = DT_RIGHT  | DT_VCENTER ;//вправо
      break;
    }
    StringGrid1->Canvas->FillRect(Rect);
    DrawText(StringGrid1->Canvas->Handle,   // handle to device context
                 StringGrid1->Cells[ACol][ARow].c_str(),    // pointer to string to draw
                 StringGrid1->Cells[ACol][ARow].Length(),   // string length, in characters
                 &Rect, // pointer to structure with formatting dimensions
                 uFormat    // text-drawing flags
    );
}

DoubleBuffered = true;
 for (int i=0; i < ControlCount;i++) {
      if (AnsiString(Controls->ClassName())=="TButton"){
      Controls->ControlStyle << csFramed;
      }
 }
Repaint();

// hpp
//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TButton *Button1;
private:    // User declarations
public:     // User declarations
        __fastcall TForm1(TComponent* Owner);
protected: virtual void __fastcall WndProc(Messages::TMessage&); // переопределяем стандартный метод WndProc на свой - виртуальный
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

// cpp

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{

}
//---------------------------------------------------------------------------
void __fastcall TForm1::WndProc(TMessage&msg)
{
        switch (msg.Msg)
        {
          case WM_CLOSE: // реакция на закрытие формы
          MessageBox(0,"Exit program",0,MB_OK);
        }

TForm::WndProc(msg); // вызываем стандартный метод
}

// hpp
//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TButton *Button1;
private:    // User declarations
public:     // User declarations
        __fastcall TForm1(TComponent* Owner);
        void __fastcall AppMessage(tagMSG &Msg, bool &Handled); // определяем функцию, которая будет ловить сообщения
};

// cpp
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
Application->OnMessage = AppMessage; // переопределяем функцию, которая будет ловить сообщения
}

const WM_FILEREADY = WM_USER + 2000;
void __fastcall TForm1::AppMessage(tagMSG &Msg, bool &Handled)
{
  if (Msg.message == WM_FILEREADY)
  {
    Memo1->Lines->LoadFromFile(AnsiString((char *)Msg.lParam));
    Handled = true; // не отправлять дальше по-цепочке (обработано)
  }
}

class TPublicGrid: public  TStringGrid
{
    public:
        using TStringGrid::DeleteRow;
};
...
((TPublicGrid*)StringGrid1)->DeleteRow(2);

class PACKAGE TMyStringGrid: public TStringGrid
{
private:
protected:
public:
__fastcall TMyStringGrid(Classes::TComponent* AOwner):
TStringGrid(AOwner){};
void _fastcall MoveRow(int from,int to){RowMoved(from,to); }
void _fastcall RowDelete(int arow){DeleteRow(arow);}
void _fastcall InsertRow(int arow){RowCount++; RowMoved(RowCount-1,arow);}
};

//удалить колонку...
void RemoveCol(TStringGrid* StringGrid, int Index)
{
 assert(StringGrid != NULL);
 //откл. перерисовку...
 SNDMSG(StringGrid->Handle, WM_SETREDRAW, false, 0);
 try
 {
   const int col_count = StringGrid->ColCount;

   // смещаем  стобцы на один влево
   for (int col = Index; col < col_count - 1; ++col)
   {
     StringGrid->Cols[col] = StringGrid->Cols[col + 1];
   }      

   // удаляем последнюю колонку...
   StringGrid->ColCount = col_count -1;
 }
 __finally
 {
   SNDMSG(StringGrid->Handle, WM_SETREDRAW, true, 0);
 }

 // вычисляем область для перерисовки...
 RECT R = StringGrid->CellRect(0, Index);
 InflateRect(&R, StringGrid->Width, StringGrid->Height);
 //и обновляем ее...
 InvalidateRect(StringGrid->Handle, &R, false);
}
//-----------------------------------------------------------------------------