Зажатая левая клавиша мыши

[Heneken]

Всем привет. Вопрос может быть совсем нубский, но пока не могу сообразить в чем подвох.Пытаюсь реализовать изменение стиля кнопки на клик через

    procedure WMMouseDown(var Message); message WM_LBUTTONDOWN;
    procedure WMMouseUp(var Message); message WM_LBUTTONUP;
   procedure WMMoseFirst(var Message: TWMMouseActivate); message WM_MOUSEFIRST;

procedure TCustomEsButton.WMMouseDown(var Message);
begin
  inherited;
  FCurrentStyle := FStyleClick;
  Invalidate;
end;

procedure TCustomEsButton.WMMoseFirst(var Message: TWMMouseActivate);
begin
  inherited;
  FCurrentStyle := FStyleEnterMouse;
  Invalidate;
end;

  
procedure TCustomEsButton.WMMouseUp(var Message);
begin
  inherited;
  FCurrentStyle := FStyleEnterMouse;
  Invalidate;
end;

Проблема в том, что после WMMouseDown, сразу же ловится

procedure WMMoseFirst(var Message: TWMMouseActivate); message WM_MOUSEFIRST;

И я не могу вдуплить, какого лешего мне винда посылает сообщение о первичном событии крысы, если никто с компонента мышь не сводил и я нигде WM_MOUSELEAVE не посылал. Получается что винда сама это делает при WM_LBUTTONDOWN. Соответственно я вижу на экране мерцание стиля на Down и его возврат в состояние описанное в WMMoseFirst имхо тут - же получаю WM_MOUSEFIRST.

Как от подобного избавиться? Подскажите, может WM_MOUSEFIRST следует заменить на что-то иное или с ControlStyle поиграть?
Я знаю как разрулить эту ситуацию, но не хочу рисовать дополнительные поля, может есть какое то штатное решение?

P.S -

 Множество ControlStyle -  [csCaptureMouse,csClickEvents,csSetCaption,csParentBackground,csGestures]