Как картинку отриcованую средствами OpenGl записать в GIF файл в Delphi XE4

[basil]

В Winows 7 Delphi XE4: Как картинку отриcованную средствами OpenGl записать в GIF файл.
Картинку с CANVAS отрисованную стандартными функциями записывает в гифку и в Winows XP Delphi7 и в Winows 7 Delphi XE4.
Картинку отриcованную средствами OpenGl записывает в гифку в Winows XP Delphi7.
Картинку отриcованную средствами OpenGl не записывает в гифку в Winows 7 Delphi XE4.
В XE4 выводит пустой белый лист в гифку.
Читал что связано с рендерингом, может кто-то знает?
Нашёл два варианта рендеринга RenderToBitmap, один проверил - выводит чёрный лист.
Второй вариант требует утилиты GL, GLu, GLext - проверить не смог, т к. не смог их найти в инете.
Может кто-то сталкивался с проблемой.
В скрепке два варианте FrameBufferunit.

FrameBuffer := TFrameBuffer.Create(ABitmap, Err);
   If Err = 0 then begin
{....... Инициализация матриц проектирования и моделирования .........}
//   SetMatrixes(ABitmap.Width, ABitmap.Height);

			p:=tprogr.create(PanelErr{Trans},PanelEdit,DrawTrans,progress,false);
      p.is3D:=false;//is3D;
			p.name:='ProgrTransl';
			p.isDrawBorderProgr:=true;
			p.isDrawEkvid:=false;//true;
      DrawTrans.fprogr:=p;
      p.open(DialogLoadSave.FileName);
      p.width_ekvid:=0;//Form_Const_Tools_New_DC_Width_sharp.Value/10;
      p.isCirclePrir:=progr.isCirclePrir;
      p.RaznRadius:=progr.RaznRadius;
      p.isSkipCadr:=progr.isSkipCadr;
      p.EkvidPodxod:= progr.EkvidPodxod;
      if (isShowProgr) then
        ShowIconOrProgr(false);
      if p.tip=typeESSI then
        sExt:=ext_esi
      else
        if p.tip=typeISO then
          sExt:=ext_iso;
     sExt:=sExt+ext_pic;

			if p.compile(true) then
      begin
        Panel_Flash_Stop.SetError(Mes_NotError_LNG,cf_Message);

        DrawTrans.DrawToScreen(stDrawToScreenProgr);
        DrawTrans.repaint;

        S:=ChangeFileExt(p.fullname,sExt);
        FileSetAttr(S,faArchive);
      end;

          ABitmap.Canvas.CopyRect(Rect(0,0,ABitmap.width,ABitmap.Height),DrawTrans.Canvas,Rect(0,0,ABitmap.width,ABitmap.Height));

//   MyPaint(True);  { Рисуем на контексте функциями OpenGL }
   FrameBuffer.TextureToBitmap;

         gif:=TGIFImage.Create;
          gif.Assign(ABitmap);

          if SSS<>sExt then
           gif.SaveToFile(ChangeFileExt(p.fullname,sss))
          else
          gif.SaveToFile(ChangeFileExt(p.fullname,sExt));
          ABitmap.Free;
          gif.Free;

   end;
{....... Освобождение памяти и уничтожение временного контекста ......}
FrameBuffer.Free;        GhostForm.Free;
wglMakeCurrent(0, 0);   // wglDeleteContext(FGLContext);
FGLContext := 0;    { Признак - см. proc.MyPaint }
ABitmap.Canvas.UnLock;


end;

http://basil-cat.narod.ru/main.txt

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор