안녕하세요..

Panel을  런타임에 옮기시려면 아래 코드를 Panel 의 마우스다운 이벤트에 기술해주시면 되고요..

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const
  SC_DragMove = $F012;
begin
  ReleaseCapture;
  Panel1.Perform(WM_SysCommand, SC_DragMove, 0);
end;


Image 컴포넌트 같이 핸들이 없는 컴포넌트는 다른 방법을 써야 합니다..
아래 코드를 참고하세요..

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  MouseDownSpot : TPoint;
  Capturing : bool;

implementation

{$R *.DFM}

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
     SetCapture(longint(Image1));
     Capturing := true;
     MouseDownSpot.X := x;
     MouseDownSpot.Y := Y;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    ReleaseCapture;
    Capturing := false;
    Image1.Left := Image1.Left - (MouseDownSpot.x - x);
    Image1.Top := Image1.Top - (MouseDownSpot.y - y);
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if Capturing then begin
   Image1.Left := Image1.Left - (MouseDownSpot.x - x);
   Image1.Top := Image1.Top - (MouseDownSpot.y - y);
end;
end;

end.

그럼..즐거운 프로그래밍 하세요..

감사 합니다..