Из avi-файла достать интересующий frame

#include <vcl.h>
#pragma hdrstop
#include <vfw.h>
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
 
        AVISTREAMINFO    psi;       // Указатель на структуру содержащую информацию о потоке
        PAVISTREAM       pavi;      // Дескриптор для открытия потока
        PGETFRAME        pgf;       // Указатель на объект GetFrame
        long             lastframe; // Последний кадр анимации
        int              width;     // Ширина видео
        int              height;    // Высота видео
        char             *pdata;    // Указатель на данные текстуры
        int              mpf;       // Сколько миллисекунд отображен кадр
        HBITMAP       hBitmap;      // Дескриптор устройства растра
        HDC hdc;                    // Создание совместимого контекста устройства
        unsigned char* data;        // Указатель на наше измененное в размерах изображение
 
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
       AVIFileInit();
 
       if( AVIStreamOpenFromFile(&pavi,"c:\\9.avi" , streamtypeVIDEO, 0, OF_READ, NULL) != 0)
       {
                Panel1->Caption = "AVIStreamOpenFromFile Error" ;
                return;
       }
       else
       {
                Panel1->Caption = "AVIStreamOpenFromFile OK" ;
       }
 
    AVIStreamInfo(pavi, &psi, sizeof(psi));   // Записываем информацию о потоке в psi
    width = psi.rcFrame.right-psi.rcFrame.left; // Ширина = правая граница минус левая
    height = psi.rcFrame.bottom-psi.rcFrame.top;// Высота равна верх минус низ
    lastframe = AVIStreamLength(pavi);          // Последний кадр потока
    mpf = AVIStreamSampleToTime(pavi,lastframe)/lastframe;
 
 
    pgf = AVIStreamGetFrameOpen(pavi, NULL); // Создание PGETFRAME с нужными нам параметрами
 
    if (pgf==NULL)
    {
        Panel2->Caption = "AVIStreamGetFrameOpen Error"  ;
        return;
    }
    else
    {
        Panel2->Caption = "AVIStreamGetFrameOpen OK" ;
    }
 
        LPBITMAPINFOHEADER lpbi;      // Содержит BitmapInfoHeader
 
 
        int frame = 270; //какой-то кадр
 
        lpbi = (LPBITMAPINFOHEADER)AVIStreamGetFrame(pgf, frame);
 
        pdata=(char *)lpbi+lpbi->biSize+lpbi->biClrUsed * sizeof(RGBQUAD);
 
 
   HDC DC_Handle;
    DC_Handle = CreateDC("Display",0,0,0);
 
    ::StretchDIBits     (
 
                        DC_Handle,          // hDC
                        0,                     // DestX
                        0,                     // DestY
                        lpbi->biWidth,      // nDestWidth
                        lpbi->biHeight,     // nDestHeight
                        0,                     // SrcX
                        0,                     // SrcY
                        lpbi->biWidth,      // wSrcWidth
                        lpbi->biHeight,     // wSrcHeight
                        pdata,                  // lpBits
                        (LPBITMAPINFO)lpbi, // lpBitsInfo
                        DIB_RGB_COLORS,        // wUsage
                        SRCCOPY                 // dwROP
                                        
                        );
 
 
        DWORD color = GetPixel(DC_Handle,120,120);
        int R = GetRValue(color);
        int G = GetGValue(color);
        int B GetBValue(color);
 
        Panel3->Caption = FloatToStr(R)+","+ FloatToStr(G)+","+ FloatToStr(B);
 
          int i,j;
          for (int i =0;i<320;i++)
          {
                for  (int j =0;j<255;j++)
 
               Image1->Canvas->Pixels[i][j] = GetPixel(DC_Handle,i,j);
          }
 
 
}

HDRAWDIB      hdd;        // Дескриптор для нашего рисунка
 
HBITMAP       hBitmap;    // Дескриптор устройства растра
 
HDC hdc = CreateCompatibleDC(0); // Создание совместимого контекста устройства
 
unsigned char* data = 0;         // Указатель на наше измененное в размерах изображение
 
BITMAPINFOHEADER bmih;      // Заголовочная информация для DrawDibDraw декодирования
 
 
 
//////////////////////////Ниже не уверен, что очень правильно/////////////////
 
 
 
 bmih.biSize        = sizeof (BITMAPINFOHEADER); // Размер BitmapInfoHeader’а
 
  bmih.biPlanes      = 1;       // Размер
 
  bmih.biBitCount    = 24;      // Формат битов
 
  bmih.biWidth       = 256;     // Ширина(256 пикселов)
 
  bmih.biHeight      = 256;     // Высота(256 пикселов)
 
  bmih.biCompression = BI_RGB;  // Цветовой режим (RGB)
 
 
  hBitmap = CreateDIBSection (hdc, (BITMAPINFO*)(&bmih),
 
                              DIB_RGB_COLORS, (void**)(&data), NULL, NULL);
 
  SelectObject (hdc, hBitmap) ;  // Выбор hBitmap в наш контекст устройства (hdc)
 
 
 DrawDibDraw (hdd, hdc, 0, 0, 256, 256, lpbi, pdata, 0, 0, width, height, 0);
 
       int i,j;
          for (int i =0;i<320;i++)
          {
                for  (int j =0;j<255;j++)
 
               Image1->Canvas->Pixels[i][j] = GetPixel(hBitmap,i,j);
          }

HDC DC_Handle;
    DC_Handle = CreateDC("Display",0,0,0);

HDC hdc = CreateCompatibleDC(0);