anchor.diff:    protected
       { Protected declarations }
     public
  -    constructor Create(AOwner : TComponent); override;
  -    procedure SetDefaultImage(path: String);
  +    procedure SetDefaultImage(path, defaultImg: String);
     published
       { Published declarations }
     end;
  
positive.code: end;
  
  end.
  
  
  
  
  
  
  
  
negative.code: 
  implementation
  
  procedure TImage1.SetDefaultImage(path, defaultImg: String);
  begin
    try
      begin
  
        if FileExists(path) then
          Picture.LoadFromFile(path)
        else if FileExists(defaultImg) then
          Picture.LoadFromFile(defaultImg)
      end;
    finally
      begin
  
      end;
    end;
  end;
  
  procedure Register;
  