Как найти букву а (Кириллица)

procedure TForm1.Button1Click(Sender: TObject);
var
  cmp: TComponent;
  sh: TShape absolute cmp;
begin
  c := 0;
  ListBox1.Items.LoadFromFile('123.txt');
  for i := 0 to listbox1.Items.Count - 1 do //считает строки
    begin
      c := c + 1;
      {str1 := ListBox1.Items[i];
      for j := 1 to UTF8length(str1) do
      begin
        if UTF8copy(str1, j, 1) = 'а' then
          Tshape(Components[c]).Brush.Color := clblue;
      end; }
      if pos('а', ListBox1.Items[i]) <> 0
        then begin
               cmp:= FindComponent(Format('Shape%d', [c]));
               if cmp is TShape
                 then sh.Brush.Color := clblue;
             end ;    // никогда так не делай! Это говнокод. Лютый! :))))))
    end;
 
  //проверяем 5 ли слов
  if c <> 5 then
    ShowMessage('Неверное количество слов')
  else
  begin
    //выводим раздельные слова в Edit(1-5)
    Edit1.Text := ListBox1.Items[0];
    Edit2.Text := ListBox1.Items[1];
    Edit3.Text := ListBox1.Items[2];
    Edit4.Text := ListBox1.Items[3];
    Edit5.Text := ListBox1.Items[4];
    Timer1.Enabled := True;
    Timer1.interval := 120;
    m := 0;
  end;
end;