移动窗口消息

if (ssleft in Shift) then
    begin
        releasecapture;
        perform(wm_syscommand, $f012, 0);
    end;