try uniqueStrings(f.accounts[act]) except end;

[Mars]

one other forget from rejetto

  for act:=low(act) to high(act) do
    begin
    try f.accounts[act]:=get('') except end;
    try addUniqueArray(f.accounts[act], get('add ')) except end;
    try removeArray(f.accounts[act], get('remove ')) except end;
    try uniqueStrings(f.accounts[act]) except end;  //add by mars
    end;
  VFSmodified:=TRUE;
  mainfrm.filesBox.repaint();
  end; // setItem

[rejetto]

get() already works on unique strings
addUniqueArray() too
removeArray cannot make duplicates, because it removes.
so, i don't understand why you want to call uniqueStrings(), it's a waste of time.

[Mars]

Effectively, having placed 3 glasses in front of my eyes, it does not need a modification there.

 Abandoned request