이렇게 해보면 어떨까요?

__fastcall TAboutBox::TAboutBox(TComponent* AOwner)
	: TForm(AOwner)
{
    Application->OnMessage = AppMessage; }
//---------------------------------------------------------------------

void __fastcall TAboutBox::AppMessage(tagMSG &Msg, bool &Handled)
{
     if(Msg.message == WM_LBUTTONDOWN || Msg.message == WM_LBUTTONDBLCLK) {
        Handled= true;
     }
}
//---------------------------------------------------------------------------
void __fastcall TAboutBox::OKButtonClick(TObject *Sender)
{
    ShowMessage("AAA");
}
//---------------------------------------------------------------------------

강형우 님이 쓰신 글 :
: 폼 위에 마우스 클릭을 하지 못하게 하는 방법을 찾고 있습니다.
:
: vc++을 예로 들면 PreTranslateMessage 함수를 이용하면 됩니다만...
:
: 아직 제가 bc++ 6.0 은 초보인 관계로 잘 알지 못합니다.
:
: PreTranslateMessage를 사용하는 방법을 알려 주세도 되구요..
:
: 이게 아니더라도 다른 방법이 있음 알려 주세요..
:
: 급한 사항이라 이렇게 글을 올립니다..
:
: 좋은 답변 기다리겠습니다.