anchor.diff:    FUnitList := TUnitList.Create;
     FMakeOptions := TStringList.Create;
     FMacroNames := TStringList.Create;
  +  FUnitDirs := TStringList.Create;
   end;
   
   destructor TProject.Destroy;
   begin
  +  FUnitDirs.Free;
     FMacroNames.Free;
     FMakeOptions.Free;
     FUnitList.Free;
  
positive.code: end;
  
  function TProject.Save: Boolean;
  var
    i: integer;
  begin
    Result := False;
    if ProjectName = '' then
  
negative.code:     property    DefaultMake: integer read FDefaultMake write FDefaultMake;
      property    MakeOptions: TStringList read FMakeOptions;
      property    MacroNames: TStringList read FMacroNames;
      property    UnitDirs: TStringList read FUnitDirs;
    end;
  
  
  