delphi 无标题栏时，窗体跟随其他控件移动的方法

procedure   image1.onMouseDown(Sender:   TObject;   Button:   TMouseButton;
    Shift:   TShiftState;   X,   Y:   Integer);
begin
ReleaseCapture;
    SendMessage(Handle,   WM_SYSCOMMAND,   $F012,   0);
end