Screenshot EAccessViolation

[Patrick]

Hallo, ich hätt da mal ein Problem, immer wenn ich dieses Script ausfürhre bekomme ich in der ZeileourImage.Width:=x; eine "EAccessViolation"-Fehlermeldung, kann mir vielleicht einer weiterhelfen?

Delphi-Quellcode:

procedure ScreenShot(var ourImage : TBitmap);
var DCPuffer, DC: HDC;
  Puffer : HBitmap;
  x, y: integer;
begin
  DC:=CreateDC('DISPLAY', nil, nil, nil);
  x:=screen.Width;
  y:=screen.height;
  DCPuffer:=CreateCompatibleDC(DC);
  Puffer:=CreateCompatibleBitmap(DC, x, y);
  SelectObject(DCPuffer,Puffer);
  BitBlt(DCPuffer, 0, 0, x, y, dc, 0, 0, srccopy);
  ourImage.Width:=x;
  ourImage.Height:=y;
  BitBlt(ourImage.canvas.Handle, 0, 0, x, y, DCPuffer, 0, 0, srcCopy);
  DeleteDC(DCPuffer);
  DeleteDC(DC);
end;

Danke im Voraus!

[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]