Составить программу подсчета и сравнения количества букв «А» и букв «О» с учетом регистра

procedure TForm1.FormCreate(Sender: TObject);
begin
 Memo1.Lines.LoadFromFile('d:\tmp\1.txt');
end;
 
procedure TForm1.Button1Click(Sender: TObject);
const sText : array[0..7] of String = ('Прописных букв A (лат.)', 'Прописных букв O (лат.)',
                                       'Строчных букв a (лат.)', 'Строчных букв o (лат.)',
                                       'Прописных букв A (рус.)', 'Прописных букв О (рус.)',
                                       'Строчных букв a (рус.)', 'Строчных букв o (рус.)');
      sA : array[0..7] of String = ('A', 'O', 'a', 'o', 'А', 'О', 'а', 'о');
var iA : array[0..7] of integer;
    i : integer;
begin
 Memo2.Lines.Clear;
 for i := 0 to 7 do
  iA[i] := Length(Memo1.Text) - Length(StringReplace(Memo1.Text, sA[i], '', [rfReplaceAll]));
 for i := 0 to 3 do
  if (iA[i * 2] = 0) and (iA[i * 2 + 1] = 0)
   then continue
   else
    if iA[i * 2] = iA[i * 2 + 1]
     then Memo2.Lines.Add(Format('%s и %s поровну', [sText[i * 2], sText[i * 2 + 1]]))
     else
      if iA[i * 2] > iA[i * 2 + 1]
       then Memo2.Lines.Add(Format('%s больше чем %s на %d', [sText[i * 2], sText[i * 2 + 1], abs(iA[i * 2] - iA[i * 2 + 1])]))
       else Memo2.Lines.Add(Format('%s больше чем %s на %d', [sText[i * 2 + 1], sText[i * 2], abs(iA[i * 2] - iA[i * 2 + 1])]));
end;
 
end.