anchor.diff:    begin
       s := UnitList[j].FileName;
       FIniFile.WriteString(cUnits, 'Unit' + IntToStr(j+1),
  -        Format('%s,%s', [ExtractRelativepath(ProjectDir, s), BoolToStr(UnitList[j].Opened, '1', '0')]));
  +        Format('%s,%s', [ExtractRelativepath(ProjectDir, s), BoolToStr(UnitList[j].Opened, False)]));
     end;
   
     Result := True;
  
positive.code:   if AFile <> '' then
      ProjectName := fpgExtractFileName(AFile);
  
    FIniFile.WriteString(cProjectOptions, 'ProjectDir', ProjectDir);
    FIniFile.WriteString(cProjectOptions, 'ProjectName', ProjectName);
    FIniFile.WriteString(cProjectOptions, 'MainUnit', MainUnit);
    FIniFile.WriteString(cProjectOptions, 'TargetFile', TargetFile);
  
negative.code:   if not Assigned(FIniFile) then
      FIniFile := TfpgINIFile.CreateExt(AProjectFile);
  
    ProjectDir := fpgExtractFilePath(AProjectFile);
    ProjectName := FIniFile.ReadString(cProjectOptions, 'ProjectName', ChangeFileExt(fpgExtractFileName(AProjectFile), ''));
    MainUnit := FIniFile.ReadString(cProjectOptions, 'MainUnit', '');
    TargetFile := FIniFile.ReadString(cProjectOptions, 'TargetFile', '');
  