Регистр для русских букв

[Kulibim]

Есть такая вот функция:

function SymbolCount(symb:string;strl:TStrings):integer;
var
i,j,g:integer;
begin
g:=0;
for i := 0 to strl.Count-1 do
begin
  for j := 0 to length(strl[i]) do
  begin
    if (strl[i][j] = symb) or (strl[i][j] = UpperCase(symb)) then
    begin
      g:=g+1;
    end;
  end;
end;
SymbolCount:=g;
end;

Проблема заключается в том, что функция не учитывает русские буквы верхнего регистра, в чем проблема?

[Slovinsky]

Используйте AnsiUpperCase, т.к. UpperCase работает только с первой частью таблицы символов, а AnsiUpperCase использует текущую локаль.

[Kulibim]

Спасибо заработало!