RAD2010,ни вклинится в обработку WM сообщений

    try
    {
        Application->Initialize();
        Application->MainFormOnTaskBar = true;
        Application->CreateForm(__classid(TForm1), &Form1);
        Application->Run();
    }

WNDPROC OldWindowProc;

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
LRESULT CALLBACK NewWindowProc(HWND hWnd, UINT msg, WPARAM w, LPARAM l)
{
//Обрабатываем нужное нам сообщение
  switch(msg) {
   case WM_VSCROLL:
    Form1->Caption = AnsiString(HIWORD(w));
   break;
  }//switch(msg)
 //Если нам необходимо прекратить дальнейшую обработку сообщения, то выходим и возвращаем ноль
 //Вызываем старую оконную процедуру, которая обработает сообщение.
 return CallWindowProc(Form1->OldWindowProc, hWnd, msg, w, l);
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
 OldWindowProc = (WNDPROC)SetWindowLong(StringGrid1->Handle,
                             GWL_WNDPROC, (long)NewWindowProc);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
 SetWindowLong(StringGrid1->Handle, GWL_WNDPROC, (long)OldWindowProc);
}