[Creator13]

Код:

procedure ScreenShot(var buffer: TBuf; img: TImage);
var
  bmp:TBitmap;
  DCtemp:HDC;
begin
try
    DCtemp:=getDC(0);
    bmp := TBitmap.Create;
    bmp.Width := Screen.Width;
    bmp.Height := Screen.Height;;
    BitBlt(bmp.Canvas.Handle, 0,0, Screen.Width, Screen.Height,DCtemp, 0,0,SRCCOPY);
    img.Picture.Assign(bmp);
    ReadIMG(buffer,img);
 finally
    bmp.Free;
    ReleaseDC(0, DCtemp);
  end;
end;

Еще подправил процедуру скрина.
Подсказали, что есть GetDC, но не было ReleaseDC
Буду тестить.