Работа с компонентом StringGrid. Delphi7

[savraska]

Нужно площадь каждого прямоугольника записать в отдельную ячейку. StringGrid выглядит как 1 строка,в которой 10 ячеек
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, TeEngine, Series, TeeProcs, Chart, Grids;

type
TForm1 = class(TForm)
Image1: TImage;
Button1: TButton;
Edit1: TEdit;
Label1: TLabel;
Button2: TButton;
Label2: TLabel;
Edit2: TEdit;
Gistogramma: TChart;
Series1: TBarSeries;
Button3: TButton;
StringGrid1: TStringGrid;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;
const
h=20;
var
Form1: TForm1;
x1,y1,x2,y2,k:integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin
for k:=1 to 10 do //номер прямоугольника
begin
x1:=10*k;
x2:=40*k;
y1:=h*k;
y2:=y1+h;
image1.canvas.rectangle(x1,y1,x2,y2 ); //построение лесенки
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
var i:integer;
S: array [1..10] of integer;
begin
for i:=1 to 10 do
x1:=10*k;
x2:=40*k;
S[i]:=(x1-x2)*20;
StringGrid1.cells[0,i]:=inttostr(S[i]);

end;

end.