[MoveComponent = 이동이벤트처리할 컴포넌트]

StandardX,Standardy:integer;
bDrag:Boolean;

procedure TMainForm.MoveComponentMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   bDrag:=True;
   StandardX:=X;
   StandardY:=Y;
end;

procedure TMainForm.MoveComponentMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   bDrag:=false;
end;

procedure TMainForm.MoveComponentMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
   if bDrag then
   begin
      MainForm.Left:=MainForm.Left-(StandardX-X);
      MainForm.Top:=MainForm.Top-(Standardy-y);
   end;
end;

WMNCHitTest 이 함수를 검색해 보면
간단히 해결할수 있습니다