anchor.diff:    end;
   end;
   
  -procedure TConfigData.SetTempDirectory(const Value : String);
  -begin
  +procedure TConfigData.SetTempDirectory(Value : String);
  +begin
  +  Value := TPath.ExpandIfNotExists(Value);
  +
     if not FTempDirectory.Assigned or (TempDirectory <> Value) then
     begin
       if FValidate then
  
positive.code:   end;
  end;
  
  procedure TConfigData.SetOutputDirectory(const Value : String);
  begin
    if not FOutputDirectory.Assigned or (FOutputDirectory <> Value) then
    begin
      if FValidate then
  
negative.code:       function  GetOutputFileName : String;
        function  GetTempDirectory : String;
        procedure SetExcludeProjectPatterns(const Value : TStringDynArray);
        procedure SetFixInsightExe(Value : TFileName);
        procedure SetInputFileName(Value : TFileName);
        procedure SetOutputDirectory(Value : String);
        procedure SetOutputFileName(const Value : String);
        procedure SetTempDirectory(Value : String);
      public
        constructor Create;
        destructor Destroy; override;
  