在delphi中最大化形式的正确方法(无标题)

procedure TForm1.FormCreate(Sender: TObject);
begin
  Self.BorderStyle := bsNone;
end;

procedure TForm1.WndProc(var Message: TMessage);
begin
  if Message.Msg = WM_NCLBUTTONDBLCLK then
  begin
    if (Message.LParam and $FFF0) = HTCAPTION then
    begin
      Perform(WM_SYSCOMMAND, SC_MAXIMIZE, 0);
      Exit;
    end;
  end;
  inherited;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  FMousePos.X := X;
  FMousePos.Y := Y;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
  begin
    SetCapture(Handle);
  end;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
  begin
    ReleaseCapture();
  end;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture();
end;