Скриншот

TRect r = Rect(0, 0, Screen->Width, Screen->Height);

        Graphics::TBitmap *bmp = new Graphics::TBitmap();
        bmp->Width = r.Width();
        bmp->Height = r.Height();
        bmp->PixelFormat = pf32bit;

        TCanvas *ScreenCanvas = new TCanvas();
        try
        {
            ScreenCanvas->Handle = ::GetDC(0);
            try
            {
                bmp->Canvas->CopyRect(r, ScreenCanvas, r);
            }
            __finally
            {
                ScreenCanvas->Handle = NULL;
                ::ReleaseDC(0, hdc);
            }
        }
        __finally
        {
            delete ScreenCanvas;
        }

BitBlt(Image->Canvas->Handle, 0, 0, Image->Width, Image->Height, GetDC(0), 0, 0, SRCCOPY);