anchor.diff:    else
       fSound := nil;
   
  -  fAVI.Frame := AVIStreamGetFrameOpen(fAVI.Stream_Video, nil);
  +  fAVI.Frame := AVIStreamGetFrameOpen(fAVI.StreamVideo, nil);
   
     if not Assigned(fAVI.Frame) then
       Exit;
  
positive.code: 
    TAVIState = (aviNoFile, aviStopped, aviPlaying, aviPaused);
  
    TAVI_Video = record
      AFile: PAVIFile;
      Stream_Video, Stream_Audio: PAVIStream;
      Frame: PGETFRAME;
    end;
  
  
negative.code: 
  function GetVideoAverage(aBMP: TBitmap; aX: Integer; aSL1, aSL2: Pointer): TRGBTriple;
  var
    A, B: TRGBTriple;
  begin
    if Assigned(aSL1) then
      A := PRGBTriple(Cardinal(aSL1) + 3 * aX)^
  