чего не работает Perform(WM_MOUSELEAVE, 0, 0);

[beegl]

доброй ночи, подскажите, как программно оформить MOUSEENTER и MOUSELEAVE на кнопку

это не работает:

Button1.Perform(WM_MOUSELEAVE, 0, 0);

необходимо программно симулировать MOUSEENTER и MOUSELEAVE, как на скрине, только без курсора и движений мышки
см. скрин:


и почему нет сообщения

WM_MOUSEENTER

только через таймер:

procedure TForm1.Button2Click(Sender: TObject);
begin
Button1.Perform(CM_MOUSEENTER, 0, 0);
Timer2.Enabled := true;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
Button1.Perform(CM_MOUSELEAVE, 0, 0);
end;
end.