Задать русский алфавит в Delphi 2009

procedure TForm1.Button1Click(Sender: TObject);
Const
  C = ['а'..'я'];
Var
  s    : string;
  i, l : integer;
begin
s := Memo1.Text;
s := trim(s);
l := length(s);
for I := 1 to l do
 begin
   if (s[i] in C) then
   Memo2.Text:='Есть';
 end;
end;

const
  alphabet = 'абвгдежзийклмнопрстуфхцчшщыьъэюяё';
// ...
   if Pos(s[i], alphabet) > 0 then Memo2.Text:='Есть';

   if InOpArray(s[i],
                ['а','б','в','г','д','е','ж','з','и','й','к','л','м','н',
                 'о','п','р','с','т','у','ф','х','ц','ч','ш','щ','ы','ь',
                 'ъ','э','ю','я','ё']) then Memo2.Text:='Есть'; // надо подключить WideStrUtils

procedure TForm1.Button1Click(Sender: TObject);
Const
  C = ['a'..'z', 'A'..'Z'];
Var
  i: integer;
begin
for i :=1 to Length(Trim(Memo1.Text)) do
   if not (Memo1.Text[i] in C) then  //если буквы не входят во множество латинских букв, то...
   Memo2.Text :='есть'
   else
   Memo2.Text :='нет';
end;
end.