Drag and Drop an Mauszeiger

[faux]

Hallo!

Wie kann ich bei einer Drag and Drop Operation die Komponente life mitbewegen? Also dass diese immer an der aktuellen Stelle der Maus ist?

Habe es schon so probiert:

Delphi-Quellcode:

procedure TCashMachineForm1.CardMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  if Shift = [ssLeft] then
  begin
    (Sender as TImage).Left := X;
    (Sender as TImage).Top := Y;
  end;
end;

Jedoch wird das Event OnMouseMove nicht aufgerufen, wenn die DragMode auf dmAutomatic ist. :S

Grüße
Faux