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:   FExcludeProjectPatterns := Value;
  end;
  
  procedure TConfigData.SetFixInsightExe(const Value : TFileName);
  begin
    if not FFixInsightExe.Assigned or (FFixInsightExe <> Value) then
    begin
      if FValidate then
  
negative.code:   end;
  end;
  
  procedure TConfigData.SetInputFileName(Value : TFileName);
  begin
    Value := TPath.ExpandIfNotExists(Value);
  
    if not FInputFileName.Assigned or (FInputFileName <> Value) then
    begin
      if FValidate then
  