anchor.diff:      FTexture.Tex := 0;
     end;
     SetLength(FBuffer, 0);
  +{$ENDIF}
  +end;
  +
  +procedure TKMVideoPlayer.Stop;
  +begin
  +{$IFDEF VIDEOS}
  +  StopVideo;
   
     Inc(FIndex);
     if FIndex >= FVideoList.Count then
  
positive.code: destructor TKMVideoPlayer.Destroy;
  begin
  {$IFDEF VIDEOS}
    Stop;
    VLCUnloadLibrary;
    FVideoList.Free;
    FTrackList.Free;
  
negative.code:     function TryGetPathFile(aPath: string; var aFileName: string): Boolean;
      procedure SetTrackByLocale;
      function GetState: TVLCPlayerState;
  
      procedure StopVideo;
  {$ENDIF}
    public
      constructor Create;
  