anchor.diff:      else
         Result := ChangeFileExt(ParamStr(0), '.ini');
     end
  -end;
  -
  -function TMARSParametersIniFileReaderWriter.GetExistIniFileName: boolean;
  -begin
  -  Result:= FileExists(GetActualFileName(''));
   end;
   
   class procedure TMARSParametersIniFileReaderWriter.Load(
  
positive.code: 
  { TMARSParametersIniFileReaderWriterHelper }
  
  function TMARSParametersIniFileReaderWriterHelper.ExistIniFileName(const AIniFileName: string): boolean;
  begin
    Result:= TMARSParametersIniFileReaderWriter.ExistIniFileName(AIniFileName);
  end;
  
  procedure TMARSParametersIniFileReaderWriterHelper.LoadFromIniFile(
  
negative.code: type
    TMARSParametersIniFileReaderWriter=class
    private
    protected
      class function GetActualFileName(const AFileName: string): string;
    public
      class procedure Load(const AParameters: TMARSParameters; const AIniFileName: string = '');
      class procedure Save(const AParameters: TMARSParameters; const AIniFileName: string = '');
      class function IniFileExists(const AIniFileName: string = '') : boolean;
    end;
  
    TMARSParametersIniFileReaderWriterHelper=class helper for TMARSParameters
    public
      procedure LoadFromIniFile(const AIniFileName: string = '');
      procedure SaveToIniFile(const AIniFileName: string = '');
      function IniFileExists(const AIniFileName: string = '') : boolean;
    end;
  
  implementation
  