Скриншот игры в полноэкранном режиме получается черным

 begin
i:=i+1;
ScreenBM:=TBitMap.Create;
 SendJPG:=TJPEGImage.Create;
 ScreenBM.Width:=Screen.Width;
 ScreenBM.Height:=Screen.Height;
 BitBlt(ScreenBM.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
 GetDC(0), 0, 0, SRCCopy or CAPTUREBLT);
 SendJPG.Assign(ScreenBM);
CreateDir(ExtractFilePath(ParamStr(0))+edit1.Text+'\'+edit2.Text);
ForceDirectories(ExtractFilePath(ParamStr(0))+edit1.Text+'\'+edit2.Text);
Dir :=ExtractFilePath(ParamStr(0))+edit1.Text+'\'+edit2.Text;
 SendJPG.SaveToFile(Dir+'\'+inttostr(i)+'.jpg');
SendJPG.Free;
 ScreenBM.Free;

ScreenBM.Width:=1280;
 ScreenBM.Height:=1024;

CreateDir(ExtractFilePath(ParamStr(0))+edit1.Text+'\'+edit2.Text);
ForceDirectories(ExtractFilePath(ParamStr(0))+edit1.Text+'\'+edit2.Text);

BM:TBitMap, TClipboard:Dword;

uses vcl.imaging.pngimage; // модуль подключите
  var
  PNG : TPngImage;
  BM  : TBitmap;
 Count:Integer;
begin
   if Count > 99 then
    Application.Terminate;
 
  if not DirectoryExists(ExtractFilePath(ParamStr(0)) + 'Test') then
    ForceDirectories(ExtractFilePath(ParamStr(0)) + 'Test');
 
  Dir := ExtractFilePath(ParamStr(0)) + 'Fallout';
  PNG := TPngImage.Create;
  BM  := TBitmap.Create;
  try
    keybd_event(VK_SNAPSHOT, 0, 0, 0);
    keybd_event(VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0);
    if Clipboard.HasFormat(CF_BITMAP) then
      with PNG do
      begin
        bm.Handle := ClipBoard.getashandle(cf_bitmap);
        Assign(bm);
        SaveToFile(Dir + '\' + IntToStr(Count) + '.png');
        inc(Count);
     end;
  finally
    PNG.Free;
    bm.Free;
  end;
end;

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, jpeg, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase, IdFTP, Clipbrd;
 vcl.imaging.pngimage;