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

Опять старье нашел
Количество разных символов в строке
 function razn(s1:string):string;
var
a:set of char;
temp,ss:string;
i,x,q,z:integer;
begin
 q:=0;
i:=length(s1);    
for x:=1 to i do   
if not(s1[x] in a) then begin
 Include(a,S1[x]);
 q:=q+1;
 end;
 for z:=0 to 9 do
 begin
temp:=inttostr(z);
 if (temp[1] in a) then exclude(a,temp[1]);
  end;
  form1.caption:=inttostr(q);
  end;