[zibert]

Все хорошо, да не очень((
Вставил функцию GrabAVIFrame и воспользовался вот этим vfw.pas.
В итоге выдает access violation, хотя картинку сохраняет.
Использую так:

Код:

 
 for i := 0 to NumberOfFrames - 1 do
  begin
    Str := 'Frames\' + inttostr(i) + '.bmp';
    GrabAVIFrame(AVIFilePath, i, TempPath + Str);
  end;

Немного процедуру подредактировал:
изменил некоторые типы(потому что не принимал пасник)

Код:

var
  Error: Integer;
  pFile: iAVIFile; {PAVIFile}
  AVIStream: iAVIStream; {PAVIStream}
  gapgf: iGETFRAME;{PGETFRAME}
  lpbi: PBITMAPINFOHEADER;
  bits: PChar;
  hBmp: HBITMAP;
  AviInfo: TAVIFILEINFO;{TAVIFILEINFOW}
  TmpBmp: TBitmap;
  DC_Handle: HDC;

Может что - то посоветуете?