Работа с буферами вывода OpenGL

Type TTexFrame = Record
      RAWTexture: mByte;
      ALPHATexture: Integer;
      RGBATexture: Integer;
  End;
Type TTexFrameList = Array Of TTexFrame;
Type TTimeBlock = Record
    FrameNumber: Integer;
    Delay: Word;
  End;
Type TTimeBlockList = Array Of TTimeBlock;
 
Type OT_Animation_Head = Record
    _PKG: String;
    _File: String;
    LastUse: Int64;
    NoFree: Boolean;
    MemoryUse: Int64;
    Signature: Cardinal;
    FrameCount: Word;
    Width: Word;
    Height: Word;
    StartX: Word;
    StartY: Word;
    Frames: TTexFrameList;
    Masks: Array Of mByte;
    TimesBlock: Array Of TTimeBlockList;
    Info: String;
  End;
function TAnimations.CreatAsViewport(Const crtX,crtY,crtWidth, crtHeight: Integer; Const aName: String): OP_Animation;
    Var Animation: OT_Animation_Head;
  begin
    Result._Index := FindAnimation(aName, aName);
    if Not (Result._Index < 0) then RemoveAnimation(Result._Index);
    Animation._PKG := aName;
    Animation._File := aName;
    QueryPerformanceCounter(Animations[High(Animations)].LastUse);
    Animation.NoFree := False;
    Animation.MemoryUse := crtWidth*crtHeight*4;
    Animation.Signature := 0;
    Animation.FrameCount := 0;
    Animation.Width := crtWidth;
    Animation.Height := crtHeight;
    Animation.StartX := crtX;
    Animation.StartY := crtY;
    SetLenGth(Animation.Frames,1);
    SetLenGth(Animation.TimesBlock,1);
    SetLenGth(Animation.TimesBlock[0],1);
    Animation.TimesBlock[0,0].FrameNumber := 0;
    Animation.TimesBlock[0,0].Delay := High(Word);
    // ALPHA текстура
    glGenTextures(1,@Animation.Frames[High(Animation.Frames)].ALPHATexture);
    glBindTexture(GL_TEXTURE_2D, Animation.Frames[High(Animation.Frames)].ALPHATexture);
    // Отключаем цикличность текстуры
    glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_CLAMP);
    glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP);
    // фильтрация
    glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR );
    glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);
    glCopyTexImage2D(GL_TEXTURE_2D, 0, GL_Alpha, crtX, crtY, crtWidth, crtHeight, 0);
    // RGBA текстура
    glGenTextures(1,@Animation.Frames[High(Animation.Frames)].RGBATexture);
    glBindTexture(GL_TEXTURE_2D, Animation.Frames[High(Animation.Frames)].RGBATexture);
    // Отключаем цикличность текстуры
    glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_CLAMP);
    glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP);
    // фильтрация
    glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR );
    glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);
    glCopyTexImage2D(GL_TEXTURE_2D, 0, GL_RGBA, crtX, crtY, crtWidth, crtHeight, 0);
    Init(Result,aName,aName);
    Result._Index := AddAnimation(Animation);
  end;