사용자 정의 메세지를 폼에서 사용을 할려구 아래와 같이 선언을 했습니다.
#define my ( WM_APP + 100 )
class TForm1 : public TForm
{
__published:    // IDE-managed Components
private:    // User declarations

public:        // User declarations
  __fastcall TForm1(TComponent* Owner);
protected:
  void __fastcall  Proc( TMessage &msg); 

  BEGIN_MESSAGE_MAP
    MESSAGE_HANDLER(my, TMessage, Proc);
  END_MESSAGE_MAP(TForm1)

};

void __fastcall TForm1::Proc( TMessage &msg)
{
  ShowMessage(" User message ");
}

근데 컴파일을 하면 No error, No warning 인데 실행을 하면 EStackOverFlow with message " Stack overflow"라는 runtime 오류가 발생을 합니다......

저 같은 초보가 보기엔 메뉴얼데로 된것 같은데....?? 왜 run time error가 생기는지 알 수가 없네요..
고수님의 도움을 부탁드립니다.
프로젝트 소스를 첨부하였습니다.