Динамическое создание объектов в Delphi

[Arinnna]

Подскажите, пожалуйста, где у меня ошибка.
Нужно создавать определенное количество TabSheet, а на них StringGrid. Количество заранее неизвестно, поэтому создаю динамически. Вкладки создаются нормально. А вот StringGrid почему-то только на 0-ой странице…
Текст программы

procedure TForm24.FormActivate(Sender: TObject);
Var
i,j:integer;
  T: TTabSheet;
  S: TStringGrid;
Begin
  For i:=1 to  strtoint(Form1.Edit5.Text) do begin
    T := TTabSheet.Create(Pagecontrol1);
  with T do
  begin
  Parent:=Pagecontrol1;
    Visible := True;
    Caption := 'Страница'+inttostr(i);
    Align:=alLeft;
    PageControl := Pagecontrol1;
  end;
  end;
For i:=0 to Pagecontrol1.PageCount-1 do begin
  S:=TStringGrid.Create(PageControl1.Pages[i]);
   with S do
  begin
  Parent:=PageControl1.Pages[i];
  Visible := True;
  name := 'StringGrid'+inttostr(i);
  Options:=Options+[goEditing];

  end;

end;

end;

[DenNik2006]

убери Align:=alLeft;

[Arinnna]

Спасибо большое!!! Вы мне очень помогли) Очень долго с этой ошибкой сидела...

[Arinnna]

И еще вопрос. Подскажите, пожалуйста, а как обращаться к динамически созданным таблицам на Form24 с Form15(допустим)? При запуске Delphi еще не видит созданных объектов…

[Arinnna]

Все... Вопрос решила.