Как удалить из строковой переменной повторяющиеся символы?

Из переменной word:='ABCABCABC' убрать все A,B и C повторяющиеся (должно оставться

var
wd:='ABCABCABC';

begin
for var i:=1 to length(wd) do 
  begin
  for var j:=1 to length(wd) do
    begin
      if wd[i]=wd[j] then
        wd[j]:='d'
    end;
  end;
print(wd);
end.