TListBoxで選択が変わったことを検出したいのですが、

TForm1::TForm1(TComponent* Owner)
{
ListBox1->WindowProc = MyWindowProc;
}

void __fastcall TForm1::MyWindowProc(TMessage &Message)
{
if (Message.Msg == WM_COMMAND) { // 0
if (Message.WParamHi == LBN_SELCHANGE) { // 1
return; // 2
}
}
}

としてみたのですが0の部分までは描画要求などで頻繁によばれますが
セルをクリックして選択を変えたときにはMyWindowProc自体が呼ばれません
（1ではなくて0の部分もよばれない）
なにがいけないんでしょうか？