用MEMO和stringgird控件怎么编写99乘法表啊  教教我啊

procedure TForm1.BitBtn1Click(Sender: TObject);
var
i, j : Integer;
begin
StringGrid1.RowCount := 10;
StringGrid1.ColCount := 10;
for i:=1 to 9 do
begin
StringGrid1.Cells[0,i] := inttostr(i);
StringGrid1.Cells[i,0] := inttostr(i);
for j:=i to 9 do
StringGrid1.Cells[i, j] := inttostr(i*j) ;
end;
end;

好高兴，哈哈，谢谢啦~~~~~~~~~~~~~~~~~~~~

怎么编写C语言99表哦。各位英雄豪杰帮帮忙，拜托了！