1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure ScreenShot;
var DCPuffer, DC: HDC;
  Puffer: HBitmap;
  x, y: integer;
begin
  DC:=CreateDC('DISPLAY', nil, nil, nil);
  x:=screen.Width;
  y:=screen.height;
  DCPuffer:=CreateCompatibleDC(DC);
  Puffer:=CreateCompatibleBitmap(DC, x, y);
  SelectObject(DCPuffer,Puffer);
  BitBlt(DCPuffer, 0, 0, x, y, dc, 0, 0, srccopy);
  Form1.Image1.Width:=x;
  Form1.Image1.Height:=y;
  BitBlt(Form1.Image1.canvas.Handle, 0, 0, x, y, DCPuffer, 0, 0, srcCopy);
  DeleteDC(DCPuffer);
  DeleteDC(DC);
end;