创建Panel的代码：

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  with TPanel.Create(self) do
    begin
    Left := X;
    Top := Y;
    Width := 100;
    Height := 40;
    Parent := TPanel(Sender);
    Caption := Format('%d,%d',[X,Y]);
    end;
end;

拖放的，我试了一下效果不是很理想，因此没贴出来。你再等别人的解答吧。