TListBox Drag Drop

[API]

Moin

Bei meiner Listbox möchte ich Drag & Drop implementieren. DragMode ist auf dmAutomatic.
Nun wird bei einer Drag-Operation immer das OnClick Ereignis ausgelöst, was es nicht sollte. Wie kann das unterbunden werden?

Delphi-Quellcode:

procedure TfrmMain.ListBoxDragDrop(Sender, Source: TObject; X, Y: integer);
begin
  with Sender as TListBox do
  begin
    // mach was
  end;
end;

procedure TfrmMain.ListBoxDragOver(Sender, Source: TObject; X, Y: integer;
  State: TDragState; var Accept: boolean);
var
  aItem: integer;
begin
  with Sender as TListBox do
  begin
    aItem  := ItemAtPos(Point(X, Y), False);
    Accept := (Source is TListBox) and (aItem <> dragIndex) and (aItem < Items.Count);
    if Accept then
      ItemIndex := aItem;
  end;
end;