[PhoeniX]

Во-первых, какую ошибку?
Во-вторых:

Код:

var
  dw: HWND;
  dc: HDC;
  bmp: TBitMap;
begin
  bmp := TBitmap.Create;
  bmp .Width := Screen.Width;
  bmp .Height := Screen.Height;
  dw := GetDesktopWindow;
  dc := GetDC(dw);
  BitBlt(bmp.Canvas.Handle, 0, 0, bmp.Width, bmp.Height, dc, 0, 0, SRCCOPY);
  ReleaseDC(dw, dc);
  // ...
end;

В-третьих, глупо передавать размер в виде строки, когда Integer заведомо занимает 4 байта.