Программа не считает русские буквы, почему?

procedure TForm1.Button1Click(Sender: TObject);
var
i,n,f,byk,cif:integer;
s: string;
begin
byk:=0; //счетчик букв
cif:=0; //счетчик цифр
with memo1 do //обращаемся к компоненту Memo
 begin
  for n:=0 to lines.Count-1 do //идем по всем строкам
   begin
    s:=lines[n]; //присваиваем значение строки
      for i:=1 to length(s) do //идем по строке
       begin
        for f:=49 to 57 do //если встречаются цифры то счетчик прибавляем
          if s[i]=chr(f) then cif:=cif+1;
        for f:=128 to 175 do //если встречаются буквы (русские) то счетчик прибавляем
          if s[i]=chr(f) then byk:=byk+1;
        end;
    end;
 end;
edit1.Text:=inttostr(byk);
edit2.Text:=inttostr(cif);
end;

const rl=['А'..'Я','а'..'я'];

for i:=1 to Length(Memo1.Text) do
  if Memo1.Text[i] in rl then byk:=byk+1;

procedure TForm1.Button1Click(Sender: TObject);
var
i,byk,cif:integer;
s:string;
begin
byk:=0; //счетчик букв
cif:=0; //счетчик цифр
s:=memo1.Text;
for i:=0 to length(s) do
case s[i] of 'Ё', 'ё', 'А'..'Я', 'а'..'я':inc(byk);
              '0'..'9':inc(cif);
end;
edit1.Text:=inttostr(byk);
edit2.Text:=inttostr(cif);
end;