Delphi - Как сделать вывод символов из memo в StringGrid?

[Alibaba.bu]

Доброго времени суток!
Имеется код в DELPHI. Подскажите пожалуйста, как сделать ,чтобы в результате был вывод значений не в memo а в
StringGrid???
Код Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
   s : string;
   Ch : Char;
   Counts : array[Char] of Integer;
   i, Dups : Integer;
begin
 s := Edit1.Text;
 
   ZeroMemory(@Counts, SizeOf(Counts));
   for i := 1 to Length(s) do Inc(Counts[s[i]]);
 
   Dups := 0;
   for Ch := Low(Char) to High(Char) do
      if Counts[Ch] > 0 then
      begin
 
       Memo1.Lines.Add(Format('символ "%s", повторяется %d раз(а)', [Ch, Counts[Ch]]));
         Inc(Dups);
 
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
var  i: integer;
begin
StringGrid1.Cells[0,0]:=('символ');
StringGrid1.Cells[1,0]:=('количество');
StringGrid1.Cells[2,0]:=('вероятность');
 
end;
end.

[manchester_alan]

for i:=0 to stringgrid1.RowCount-1 do
stringgrid1.Cells[0,i]:=Format('символ "%s", повторяется %d раз(а)', [Ch, Counts[Ch]]));

попробуй так...

[Alibaba.bu]

как сделать, чтобы программа считала заглавную и прописную букву как один символ, а не два разных? И чтобы не считала пробелы?

[Stilet]

чтобы программа считала заглавную и прописную букву как один символ, а не два разных? И чтобы не считала пробелы?

s := AnsuLowerCase(StringReplace(Edit1.Text,' ','',[rfReplaceAll]));