[walear]

Код:

function getscreen(const x,y:integer ):tbitmap;
var bitmap:tbitmap;
begin
  with bitmap.Create do
   begin
      bitmap.Width := 100;
      bitmap.Height := 100;
      BitBlt(bitmap.Canvas.Handle, x, y, bitmap.Width, bitmap.Height, GetDC( GetDesktopWindow ), 0, 0, SRCCOPY );
      result:=bitmap;
      Free;
   end;

end;
procedure TForm1.Button1Click(Sender: TObject);
 var J: TJPEGImage;
begin
  j.Create;
  j.Assign(getscreen(200,200));
end;

вот так не работает почемуто