Drag&Drop einer TImage-Komponente

[semo]

so richtig scheint das doch nicht zu funktionieren....

ich frage die im formualar und im panel enthaltenen komponenten ab und bekomme sowohl vor wie auch nach dem drag&drop die meldung dass das image als parent das panel hat...

Code:

for i:=0 to ComponentCount-1 do
    Memo1.Lines.Add(Components[i].Name);

  for i:=0 to PanelVorschau.ComponentCount-1 do
    Memo2.Lines.Add(PanelVorschau.Components[i].Name);

wie kann ich nach dem drag&rop dem image das neue parent zuweisen?