Delphi - Вероятность появления элемента Snringgrid

[Alibaba.bu]

Доброго времени суток! Есть программка, она считает количество появлений в тексте всех элементов, нужно организовать в данном коде подсчет вероятности появления этих символом))) Помогите пожалуйста))

procedure TForm1.Button1Click(Sender: TObject);

var

s : string;

Ch : Char;

Counts : array[Char] of Integer;

i,j,ColSort: Integer;



begin

s := AnsiUpperCase(Edit1.Text);

ZeroMemory(@Counts, SizeOf(Counts));

for i := 1 to Length(s) do Inc(Counts[s]);

j := 0;

for Ch := Low(Char) to High(Char) do

if (Counts[Ch] > 0)and(Ch' ') then

begin

StringGrid2.Cells[0,j+1]:=Ch;

StringGrid2.Cells[1,j+1]:=inttostr(Counts[Ch]);

Inc(j);

StringGrid2.RowCount:=StringGrid2.RowCount+1;

end;

StringGrid2.RowCount:=StringGrid2.RowCount-1;

begin

ColSort:=1;

With StringGrid2 do begin

for i:=FixedRows to RowCount-1 do

for j:=FixedRows to RowCount-1 do

if StrToIntDef(Cells[ColSort,i],0)>StrToIntDef(Cells[ColSort,j],0) then begin

s:=Rows.Text;

Rows.Text:=Rows[j].Text;

Rows[j].Text:=s;

end;

end;

end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

StringGrid2.Cells[0,0]:=('Символ');

StringGrid2.Cells[1,0]:=('Количество');

StringGrid2.Cells[2,0]:=('Вероятность');

end;

end.

[lxa85]

Alibaba.bu, прикрепите архив проекта и укажите версию Delphi.