bmp bewegen

[quxy]

Hi, danke für den Tipp..hab es geschafft allerdings ist das Problem, dass sich so immer nur ein Bild bewegen
lässt...

Delphi-Quellcode:

procedure TForm1.dragdrop(Sender, Source: TObject; X, Y: Integer);
begin
if Source is TImage then
  begin
    TImage(Source).Left := x;
    TImage(Source).Top  := y;
    TImage(Source).Parent := TWinControl(Sender);
  end
end;

procedure TForm1.dragover(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
accept := (source is TImage);
end;

procedure TForm1.HexenMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
If Button=mbleft Then  Hexen2.BeginDrag(false);
end;

so sieht mein quelltext momentan aus...bei jedem Bild habe ich für MouseDown - HexenMouseDown...
anders geht es auch nicht,es wird immer für alle die gleiche procedure gewählt - automatisch.
gibt es dafür irgend eine andere lösung?