решил проблему с помощью заглушки
код из примера CustomListbox
var state : boolean = false;
//===================
Item.StylesData['visible.OnMouseDown'] := TValue.From<TMouseEvent>(myMouseDown);
//===================procedure TfrmCustomList.myMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Single);
begin
state := true;
end;