(Ubuntu) Lazarus TCheckListBox Когда происходит OnDraw?

Question

Цель: я пытаюсь, чтобы первые 3 элемента элемента управления TCheckListBox были выделены жирным шрифтом. lstMenuPermissions - мой контроль.

Итак, я попробовал это:

procedure TfrmPermissions.lstMenuPermissionsDrawItem(Control: TWinControl;
  Index: Integer; ARect: TRect; State: TOwnerDrawState);
begin      
  if index < 3 Then 
    with (Control as TCheckListBox).Canvas do
      begin
        Font.Bold := True;           
        TextOut(ARect.Left, ARect.Top, (Control as TCheckListBox).Items[Index]);
      end;

end;  

Эффекта не было, поэтому я подумал проверить, было ли событие запущено, и я попробовал это:

procedure TfrmPermissions.lstMenuPermissionsDrawItem(Control: TWinControl;
  Index: Integer; ARect: TRect; State: TOwnerDrawState);
begin
  ShowMessage('OK');
end;  

Я также установил стиль в lbOwnerDrawFixed.

Но нет сообщения. Так что я предполагаю, что событие не стреляет. Может я что то не так делаю. Посоветуйте, пожалуйста, как мне это сделать.

Спасибо!