anchor.diff:      lst := TStringList.Create;
       try
         if listAsteriskPath(src, lst) then for src in lst do begin
  -        itm := Tree.Items.AddChild(fXtraNode, shortenPath(src));
  +        itm := Tree.Items.AddChild(fXtraNode, shortenPath(CEMainForm.expandSymbolicString(src)));
           itm.ImageIndex := 2;
           itm.SelectedIndex := 2;
         end else begin
  -        itm := Tree.Items.AddChild(fXtraNode, shortenPath(src));
  +        itm := Tree.Items.AddChild(fXtraNode, shortenPath(CEMainForm.expandSymbolicString(src)));
           itm.ImageIndex := 2;
           itm.SelectedIndex := 2;
         end;
  
positive.code:   begin
      if fold = '' then
        continue;
      itm := Tree.Items.AddChild(fInclNode, shortenPath(fold));
      itm.ImageIndex := 5;
      itm.SelectedIndex := 5;
    end;
  
negative.code:   begin
      if fold = '' then
        continue;
      itm := Tree.Items.AddChild(fImpsNode, shortenPath(CEMainForm.expandSymbolicString(fold)));
      itm.ImageIndex := 5;
      itm.SelectedIndex := 5;
    end;
  