anchor.diff:    videoFileData.Kind := aKind;
     FVideoList.Add(videoFileData);
   end;
  +{$ENDIF}
   
   
   procedure TKMVideoPlayer.AddCampaignVideo(const aCampaignPath, aVideoName: string);
  
positive.code: {$ENDIF}
  
  procedure TKMVideoPlayer.Stop;
  var
    startingVideo: Boolean;
  begin
  {$IFDEF VIDEOS}
    StopVideo;
  
negative.code: end;
  
  
  {$IFDEF VIDEOS}
  procedure TKMVideoPlayer.AddVideoToList(aPath: string; aKind: TKMVideoFileKind = vfkNone);
  var
    videoFileData: TKMVideoFile;
  