자료실에 컴포넌트를 옮기거나 크기조정등의 소스도 있습니다.
아래는 간단히 이동만이므로 컨트롤키를 누르고 마우스 좌측을 누른상태에서 이동하는 예입니다.
...
var
  Form1: TForm1;
  WndPos : TPoint;
  move_ok : Boolean;
implementation

{$R *.dfm}

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    WndPos := Point(X, Y);
    move_ok := True;
end;

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
    if ( ssCtrl in Shift)and(move_ok) then begin
       TButton( Sender ).Left := TButton( Sender ).Left + X - WndPos.x;
       TButton( Sender ).Top := TButton( Sender ).Top + Y - WndPos.y;
    end;
end;

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    move_ok := False;
end;

end.
hsr/////////////////////////////////////////