begin
     if FVideoSource.Video.Size = 0 then Exit ;

     try
        try
           { если сейчас НЕ режим сессии }
           if not SessionStarted then Exit ;

           { записать видео на диск }
           WriteFrame(FVideoSource.Video,FVideoSource.Motions,FVideoSource.CurrFPS) ;

           { настраиваем внутренний буфер }
           if (FBufferBmp.Width <> FVideoSource.Bmp.Width) or
              (FBufferBmp.Height <> FVideoSource.Bmp.Height)
            then FBufferBmp.Assign(FVideoSource.Bmp)
            else FBufferBmp.Canvas.Draw(0,0,FVideoSource.Bmp) ;

           { напускаем на картинку детектор }
           Test := FVideoSource.MotExists ;

           { движения нет - на выход }
           if not Test then Exit ;
           
           FVideoSource.MotDet.LoadToMotionRes(FMotRes) ;

           { вырезать картинку пробки или зоны движения }
           BoundRect := FMotRes.GetBoundRect(FBufferBmp.Canvas) ;

           PartW := BoundRect.Right  - BoundRect.Left ;
           PartH := BoundRect.Bottom - BoundRect.Top ;

           if (FPartBmp.Width <> PartW) or
              (FPartBmp.Height <> PartH) then
            begin
                 FPartBmp.Width := PartW ;
                 FPartBmp.Height := PartH ;
            end ;

           { отрисовать зону }
           FPartBmp.Canvas.CopyRect(Rect(0, 0, PartW,PartH),FBufferBmp.Canvas,BoundRect) ;

           { проверить наличие пробки }
           { определяем, пробка у нас в кадре или нет }
           ProbkaExists := RecogProbka(FPartBmp,aBLevel,aWLevel) ;

           if ProbkaExists then
            begin
                 { увеличить счетчик пробок }
                 IncrementBottlesCounter ;
            end ;
        except