[lmikle]

Например, сдела строку и посчитав.

Код:

function DifCharCount(S : String) : Integer;
var
  I : Integer;
  B : String;
begin
  B := '';
  For I := 1 To Length(S) Do
    If Pos(S[i],B) = 0 Then B := B + S[i];
  Result := Length(B);
end;

ЗЫ. Данный код чуствителен к регистру. Если надо что бы был не чуствительный, то еще перед циклом надо сделать: S := AnsiUpperCase(S);