【Delphi】无标题移动窗体

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if ssleft in shift then
    releasecapture;
perform(WM_SYSCOMMAND,$F012,0);
end;