drag and drop, dobbeltklik - fejl i delphi?

som en helt simpel test, gør følgende:

1. start nyt projekt
2. opret en TLabel med navn "Label1"
3. opret en TListbox ned navn "debox"
5. tilføj til Label1's StartDrag event:
  debox.items.add('start drag');
6. tilføj til EndDrag:
  debox.items.add('end drag');
7. Tilføj til MouseDown:
  debox.Items.add('mouse down');
  label1.BeginDrag(False, 5);
8. Tilføj til DblClick:
  debox.items.add('double click');

nør du nu dobbeltklikker Label1, burde der opstå en OnDoubleClick event, men i stedet opstår der også en masse StartDrag og EndDrag events - hvilket vil sige, at BeginDrag funktionen IKKE virker som i dokumentationen! :(

hvordan arbejder man uden om denne fejl?

fejlen findes hele vejen fra Delphi 4 og til den allernyeste Delphi 2005...