メッセージを無視するにはどうしたら良いでしょう？

フォームの WindowProc に下記のような関数を

void __fastcall TForm1::MyWndProc(Messages::TMessage & Message)
{
if(Message.Msg == WM_WINDOWPOSCHANGING){
// なにもしない
}else{
WndProc(Message);
}
}

書いてみたのですが、フォームは移動してしまいます。
特定のメッセージを無視する方法で、SetWindowsHookEx を
使わない方法がありましたら、教えてください。