간단하게 FMX에서 폼을 마우스로 이동하기

마우스 다운 이벤트가 있는 폼 또는 컴포넌트에 아래 함수를 넣어줍니다.

procedure TForm1.MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single);
begin
  StartWindowDrag;
end;