Динамическое создание Stringgrid ов

[just.lex]

Не могу понять в чем ошибка.
создаю массив стрингридов(сг). Наверняка ошибка елементарная, но сам не пойму

...
sg:array[0..15] of TStringGrid;
...
  TStringGrid.Create(Self);
  with Sender do
  begin
    sg[0].Parent := StringGrid1;
    sg[0].Width := 400;
    sg[0].Height := 200;
    sg[0].Top := 100;
    sg[0].Left := 100;
  end;

[BDA]

uses Grids;
...
  sg:array[0..15] of TStringGrid;
...
procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to 15 do
  begin
    sg[i]:=tstringgrid.create(self);
    sg[i].Parent:=self;
    sg[i].Left:=20*i;
    sg[i].Top:=20*i;
  end;
end;

[just.lex]

ето оно, спасибо!