StringGrid и массивы

   unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button2Click(Sender: TObject);
var
a:array[1..100] of integer;
n,i:integer;
begin
For i:=1 to 100 do
if length(StringGrid1.Cells[i-1,0])<> 0
then a[i]:=strtoint(StringGrid1.Cells[i-1,0])
else a[i]:=1;
For i:=1 to 100 do
n:= a[i]*3;
 
end;
 
end.

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  i: integer;
begin
  StringGrid1.RowCount := 101; //ñòðîêè
  StringGrid1.ColCount := 3; //êîëîíêè
 
  StringGrid1.Cols[0].Add('Ýëåìåíò');
  StringGrid1.Cols[1].Add('Îïåðàöèÿ');
  StringGrid1.Cols[2].Add('Ðåçóëüòàò');
  StringGrid1.RowCount := 101;
  for i := 1 to 100 do
  begin
    StringGrid1.Cols[0].Add('¹ '+IntToStr(i));
    StringGrid1.Cols[1].Add(IntToStr(i)+ ' * 3');
    StringGrid1.Cols[2].Add(IntToStr(i*3));
  end;
end;

var
  a: integer; // îïåðàöèè
  i: integer; // ñ÷åò÷èê
begin
  StringGrid1.RowCount := 11; //ñòðîêè
  StringGrid1.ColCount := 3; //êîëîíêè
 
  StringGrid1.Cols[0].Add('Äåéñòâèå');
  StringGrid1.Cols[1].Add('Îïåðàöèÿ');
  StringGrid1.Cols[2].Add('Ðåçóëüòàò');
  a := 1; //первоначальное значение
  for i := 1 to 10 do
  begin
    StringGrid1.Cols[0].Add('¹ '+IntToStr(i));
    StringGrid1.Cols[1].Add(IntToStr(a)+ ' * 3');
    StringGrid1.Cols[2].Add(IntToStr(a * 3));
    a := a * 3;
  end;
end;