为何多了上下一截到屏幕外了

让窗体自动适应桌面大小为何多了上下一截到屏幕外了procedure TForm_main.AutoAdaptForm(Sender: TObject) ;
var
  lpRect:TRect;
begin
  SystemParametersInfo(SPI_GETWORKAREA,0,@lpRect,0);
  Form_main.Left := lpRect.left;
  Form_main.Top  := lpRect.Top;
  Form_main.width := lpRect.right - lpRect.left;
  Form_main.Height := lpRect.bottom - lpRect.Top;
  Form_main.Update ;
end;