procedure TfrmPalette lbObjectsStartDrag Sender TObject var DragObject

procedure TfrmPalette.lbObjectsStartDrag(Sender: TObject;
  var DragObject: TDragObject);
begin
//  BeginDrag();
  __DragObject := TLayerDragObject.Create(TListView(Sender).Selected);
  DragObject := __DragObject
end;