Screenshot erstellen und speichern

[Andreas13]

Könnte bitte jemand folgenden Test mit XE5 kompilieren?

Delphi-Quellcode:

program DesktopScreenShot_Test_1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  Vcl.Graphics,
  Winapi.Windows;


procedure DesktopScreenShot(DestBitmap: TBitmap; SourceRect: TRect);
// https://www.delphipraxis.net/75883-screenshot-erstellen-und-speichern-2.html
// #12: von Uwe Raabe
// 2022-10-10, um 11:43 Uhr

var
  DC: HDC;
  wnd: HWND;
begin
  wnd := GetDesktopWindow;
  DC := GetDC(wnd);
  try
    DestBitmap.SetSize(SourceRect.Width, SourceRect.Height);
    BitBlt(DestBitmap.Canvas.Handle, 0, 0, SourceRect.Width, SourceRect.Height, DC, SourceRect.Left, SourceRect.Top, SRCCOPY) ;
  finally
    ReleaseDC(wnd, DC);
  end;
end;
  
begin
  try

  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Mein Compiler weigert sich hartnäckig.

Danke! Grüße, Andreas