Delphi7保存屏幕为图片

Delphi7保存屏幕为图片，以下是主程序：functionTForm1.GetControlsImage(ACtrl:TWinControl):TBitmap;varOfs:Integer;beginResult:=TBitmap.Create;tryResult.Width:=ACtrl.ClientWidth;Result.Height:=ACtrl.ClientHeight;Result.Canvas.Brush:=ACtrl.Brush;Result.Canvas.FillRect(ACtrl.ClientRect);Result.Canvas.Lock