Drag&Drop einer TImage-Komponente

[semo]

habe es gefunden: die paintbox kann ich ja nun weglassen, und die imagekomponente auf die drunterliegende scrollbox packen:

Code:

procedure TForm1.ScrollBox1DragDrop(Sender, Source: TObject; X,
  Y: Integer);
begin
  if (Source is TImage) and (Sender is TScrollBox) then
  begin
    RemoveControl(TImage(Source));
    ScrollBox1.InsertControl(TImage(Source));
    //TImage(Source).Parent.Create(ScrollBox1);
    TImage(Source).Left := X;
    TImage(Source).Top  := Y;

    //PaintBoxMenueflaeche.Canvas.Draw(X,Y,TImage(Source).Picture.Bitmap);
  end;
end;

mfg marcus