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