[walear]

lmikle спасибо помогло
теперь правда новая проблема нехочет сохранят потом в джепег просто сохраняться пустой файл

Код:

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

end;
procedure TForm1.Button1Click(Sender: TObject);
 var J: TJPEGImage;
begin
   j:=TJPEGImage.Create;
   j.Assign(getscreen(500,500));
   j.CompressionQuality:=100;
   j.Compress;
  j.SaveToFile('temp.jpg');
  j.Free;
end;

незнаете где может быть ошибка?