Количество различных символов(Delphi)

[Artur1992]

procedure TForm1.Button1Click(Sender: TObject);
var i,j: integer;
    pcount: word;
begin
  pcount:=0; 
    for i:=0 to M.Lines.Count do
    for j:=1 to Length(M.Lines[i]) do
      if M.Lines[i][j]='.'then pcount:= pcount+1; 
      ShowMessage('Без точек '+IntToStr(Length(M.Text)-pcount)+' символов');

end;

Данный код у меня выводит количество всех символов, а как сделать так, чтоб выводил только количество различных символов.

[mss]

Данный код у меня выводит количество всех символов

Хоть бы не врал уж ..
Не всех, а за исключением точек.

как сделать

Заплатить.

[Artur1992]

ОЧЕНЬ смешно

[Mad_Cat]

s1:=''
for i:=1 to length(s) do
if pos(s[i],s1)=0 then s1:=s1+s[i];
ShowMessage('Без точек '+IntToStr(Length(s1))+' символов');

[Artur1992]

Спасибо!!!