Delphi. Как из события с message CM_MOUSEENTER вызывать событие с CM_MOUSEENTER?

Есть 2 компонентка - DBGrid и Panel.
Поверх DBGrid находиться Panel c Visible:=false;
При наведении на DBGrid Panel появляется.
Теперь нужно убирать её когда курсор мыши уводиться с DBGrid.

Использую CM_MOUSELEAVE, получаю LParam, сравниваю с handler DBGrid и убираю панель.
Но!
Т.к. панель это уже другой объект, то при переходе мышки на панель она исчезает, хотя курсор мыши фактически еще находится в границах DBgrid'а.

Как в CM_MOUSELEAVE исключить исчезновение панели, при переходе на неё?

Думал тут же проверять CM_MOUSEENTER, но так и не понял как вызывать из события с CM_MOUSEELAVE.