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;