>>845
自クラス内でウィンドウプロシージャ弄る場合はWndProcメソッドをオーバーライドしる

void __fastcall TForm1::WndProc(TMessage& message)
{
　if (message.Msg == WM_TIMER)
　{
　　OutputDebugString(AnsiString().sprintf("Message: %08X WPARAM: %08X LPARAM: %08X", message.Msg, message.WParam, message.LParam).c_str());
　　KillTimer(Handle, message.WParam);
　}
　TForm::WndProc( message);
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
　SetTimer(Handle, 0x2, 100, NULL);
}

普通に動いているが‥‥