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