Подсчитать символы использую множества

[sodd]

"Дана строка. Подсчитать, сколько различных символов встречается в ней. Вывести их на экран. "

Необходимо при помощи множеств решить эту задачу. Идея у самого такая, ставим Edit там человек вводит слово например "a,b,c,b", потом программа должна в Edit 2 вывести число "3". Думал решить добавлением каждого символа в множество, но в итоге получается, что если сначала добавлю символ txt[1], а потом txt[2], то в итоге в множестве останется только один символ txt[2], а как сразу 4-е символа добавить ?

For i:=1 to length(txt) do
Begin
Charset:=[txt[i]];
End;

[sodd]

Тему можно удалить. Сам додумался. Извините.
Может кому пригодится:

procedure TForm1.Button3Click(Sender: TObject);
var
i,j,d,kolvo,chet,k:integer;
Charset: set of char;
begin
k:=0;
Charset:=[];
For i:=1 to length(txt) do
Begin
if not (txt[i] in Charset) then
begin
Charset:=Charset + [txt[i]];
k:=k+1;
end;
End;
edit3.Text:=inttostr(k);
end;