Переполнение буфера из-за скриншота

HDC hdc = GetDC(0);
    if (hdc)
    {
        Graphics::TBitmap* bmp = new Graphics::TBitmap();
        __try
        {
            int W = Screen->Width;
            int H = Screen->Height;
            bmp->Width = W;
            bmp->Height = H;
            BitBlt(bmp->Canvas->Handle, 0, 0, W, H, hdc, 0, 0, SRCCOPY);
 
            TJPEGImage* jpg = new TJPEGImage();
            __try
            {
                jpg->Assign(bmp);
                jpg->CompressionQuality = 90;
                jpg->SaveToFile("screen.jpg");
            }
            __finally
            {
                delete jpg;
            };
        }
        __finally
        {
            delete bmp;
        }
        }

unsigned DataHandle;
HPALETTE APalette;
Word Format;
Graphics::TBitmap *Bitmap=new Graphics::TBitmap;
HDC DC=GetDC(0);
try{
Bitmap->Height=Screen->Height;
Bitmap->Width=Screen->Width;
BitBlt(Bitmap->Canvas->Handle , 0, 0, Screen->Width,
Screen->Height,DC, 0, 0, SRCCOPY);
Image1->Picture->Bitmap->Assign(Bitmap);
}
__finally
{
delete Bitmap;
ReleaseDC(0,DC);
}