unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;    type
  TForm1 = class(TForm)
    Button1: TButton;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    procedure TForm1.Button1Click(Sender: TObject);
var
  A : array of array of string;
  I, J : Integer;
begin
  SetLength(A, 10);
  for I := 0 to High(A) do
  begin
    SetLength(A[I], 10);
    for J := 0 to High(A[I]) do
      A[I,J] := 'I:' IntToStr(I)   ','   'J:' IntToStr(J);
  end;      StringGrid1.FixedCols:=0;
  StringGrid1.FixedRows:=0;
  StringGrid1.RowCount:=high(A) 1;
  StringGrid1.ColCount:=high(A[0]) 1;
  for i:=0 to high(A) do
  begin
    for j:=0 to high(A[i]) do
      StringGrid1.Cells[I,J]:=A[I,J];
  end;
end;    end.