Копирование содержимого экрана на форму

сode:

var

Image3: TImage;

procedure TSaverForm.CopyScreen;

var

DeskTopDC: HDc;

DeskTopCanvas: TCanvas;

DeskTopRect: TRect;

begin

Image3 := TImage.Create(SaverForm);

with Image3 do

begin

   Height := Screen.Height;

   Width := Screen.Width;

end;

Image3.Canvas.copymode := cmSrcCopy;

DeskTopDC := GetWindowDC(GetDeskTopWindow);

DeskTopCanvas := TCanvas.Create;

DeskTopCanvas.Handle := DeskTopDC;

Image3.Canvas.CopyRect(Image3.Canvas.ClipRect, DeskTopCanvas,

   DeskTopCanvas.ClipRect);

Image2.Picture.Assign(Image3.Picture);

{image2 расположен на целевой форме и выровнен по области клиента}

end;

procedure TSaverForm.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Image3.Free;

end;