anchor.diff:  
   procedure TKMVideoPlayer.AddCampaignVideo(aCampaignPath: string; aVideoName: String);
   var
  -  MissionPath, FileName: string;
     Path: string;
   begin
   {$IFDEF VIDEOS}
  
positive.code: 
  procedure TKMVideoPlayer.Paint;
  var
    i: Integer;
    AspectRatio: Single;
    Width, Height: Integer;
  begin
  
negative.code: {$ENDIF}
  
  type
    TKMVideoPlayer = class
    private
  {$IFDEF VIDEOS}
  