Захват скриншота не работает в Маке

TBitmap* TForm1::getScreenshotWebBrowser() {
    TBitmap *BitmapBuffer;
    TBitmap *bmp_Scrhot = new TBitmap;
    // Фиксируем размер снимаемой области
    TRectF SourceRect(0, 0, WebBrowser1->Width, WebBrowser1->Height);
    TRect Rect_bmp(0, 0, WebBrowser1->Width, WebBrowser1->Height);
    // Создаем временный буфер для получения скриншота
    BitmapBuffer = new TBitmap(SourceRect.Width(), SourceRect.Height());
    try {
        // Переводим канву в режим отрисовки - начинаем процесс отрисовки сцены
        if (BitmapBuffer->Canvas->BeginScene())
            try {
            // Говорим контролу отрисовать себя в канве нашего буфера в указанной области
            WebBrowser1->PaintTo(BitmapBuffer->Canvas, SourceRect);
            }
        __finally {
            // Завершаем процесс отрисовки, заканчивая формируемую сцену
            BitmapBuffer->Canvas->EndScene();
        }
        BitmapBuffer->SaveToFile(GetHomePath() +"/screenshot1.png");
        bmp_Scrhot->Width = Rect_bmp.Width();
        bmp_Scrhot->Height = Rect_bmp.Height();
        bmp_Scrhot->CopyFromBitmap(BitmapBuffer, Rect_bmp, 0, 0);
        bmp_Scrhot->SaveToFile(GetHomePath() +"/screenshot2.png");
    }
    __finally {
        delete BitmapBuffer;
    }
    return bmp_Scrhot;