проблемы с Char и String в 2009 Delphi

[Kurai]

вот есть задание: Написать программу подсчета количества неповторяющихся символов в каждом слове произвольной строки. Слова отделяются друг от друга одним или несколькими пробелами. Ввод строки заканчивать нажатием клавиши Enter.

Есть код, который работает в 2007 Делфи

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
   Forms, Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private     { Private declarations }
  public      { Public declarations }
  end;
var   Form1: TForm1;
implementation
{$R *.dfm}
 
Function Krz(St:string):Word; // Подсчет кол-ва различныx символов
Var a : set of char;
         m,i : Word;
begin
         m:=0; a:=[];
  for i:=1 to Length(St do
                if not(St[i] in a) then begin
                 Include(a,St[i]);  Inc(m);
                                                end;
Result:=m;
end;
 
Function FWrd(st : string) : string;
  var n,i,nst: integer;
      sl,srez : string;
begin
   Result:='';  srez:='';  n:=Length(st); 
   if n=0 then exit;
      st:=st+' '; n:=n+1; sl:='';
    for i:=1 to n do
     if st[i]<>' ' then sl:=sl+st[i]
                              else
        if  sl<>'' then begin
                 srez:=srez+' '+sl+'-'+IntTostr(Krz(sl));   sl:='';
                                     end;
       Result:=srez;
end;  // Конец функции FWrd
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Clear;  Edit2.Clear;
end;

но он не работает в 2009 Делфи, вместо этого идет ошибка [DCC Warning] Unit1.pas(37): W1050 WideChar reduced to byte char in set expressions. Consider using 'CharInSet' function in 'SysUtils' unit.

как я узнала, в 2009 изменилась кодировка Char и String, и теперь вместо set of char нужно писать set of ansichar
но мне это ничего не дало...расскажите, пожалуйста, подробнее, что на что заменяется в 2009 Делфи, чтобы я знала

[MaxNik2009]

Function Krz(St: string): Word; // Подсчет кол-ва различныx символов
Var
  a: set of Char;
  m, i: Word;
begin
  m:= 0;
  a:= [];
  for i:= 1 to Length(St) do
    if not(St[i] in a) then
    begin
     Include(a, AnsiChar(St[i]));
      Inc(m);
    end;
  Result:= m;
end;

[Kurai]

MaxNik2009
спасибо, эта ошибка изчезла, но там где Inc(m) появилась E2081 Assignment to FOR-Loop variable 'm'
хотя вроде бы цикл правильный

[MaxNik2009]

У меня на D 2010 компилируется нормально..
ошибка появляется при компиляции?

[Kurai]

да, во время компиляции возникала, но заново написала программу - все заработало, спасибо!

немного напрягает, конечно, заново писать программу, но порой если не знаешь, где ошибка, это помогает