anchor.diff:     autosave_period:TTime;
      scale:Cardinal;
   
  -    procedure LoadCfgFromFile(IniLoad:string);
  -    procedure SaveCfgToFile(IniSave:string);
  +    procedure LoadCfgFromFile(filename: string);
  +    procedure LoadCfgPtServer(ini: TMemIniFile);
  +    procedure SaveCfgToFile(filename: string);
     end;
   
     TFormData=class
      aFile:String;
  -    procedure LoadFormData(IniLoad:string);
  -    procedure SaveFormData(IniSave:string);
  +    procedure LoadFormData(filename:string);
  +    procedure SaveFormData(filename:string);
     end;
   
   var
  
positive.code:   writelog('FormData úspěšně načtena', WR_DATA);
   end;
  
  procedure TFormData.SaveFormData(IniSave:String);
  var i, j:Integer;
      ini:TMemIniFile;
   begin
    DeleteFile(IniSave);
    ini := TMemIniFile.Create(IniSave, TEncoding.UTF8);
  
    try
      for i := 0 to F_Options.ComponentCount-1 do
  
negative.code:   FreeAndNil(Config);
    FreeAndNil(GlobalConfig);
  
  end.//unit
  
  