anchor.diff:    private
       fPathManager: TPathManager;
       fTextManager: TTextManager;
  +    fExeDir: string;
       fWorkDir: string;
       fBuffer: array of string;
   
  
positive.code: end;
  
  
  procedure TForm1.ListBox1Click(Sender: TObject);
  var I,ID: Integer;
  begin
  
negative.code:   btnCopy.Visible := not USER_MODE;
    btnPaste.Visible := not USER_MODE;
    mnuListUnused.Visible := not USER_MODE;
  
    LoadSettings(fExeDir + 'TranslationManager.ini');
  end;
  
  
  procedure TForm1.FormDestroy(Sender: TObject);
  begin
    SaveSettings(fExeDir + 'TranslationManager.ini');
    fTextManager.Free;
  end;
  
  