Procedure TFORM1.FORMMMMMOMSEDOWN (Sender: Tobject; Button: TMOUSEBUTTON;
Shift: TshiftState; x, y: integer;
Begin
ReleaseCapture; // Release the original
SendMessage (Self.handle, WM_NCLBUTTONDOWN, HTCAPTION, 0); // 点 中 点 中 中 效
END;