NoteBook динамическое создание компанентов

[Pinosol]

Добрый вечер, у меня товарищи есть вопрос, который уже вызвал онемение мозга и дисфункцию мировосприятия:
Нужно динамически создавать в зависимости от условия создать "страницу" и в ней компонент StringGrid и Label. После проверяется следующие условие и если годное то создаётся опять страница и опять на ней надо динамически разместить компонент Label.
Проблема заключается в том, что ничего не создаётся =) вот кусок кода:

var
  Form1: TForm1;
  st1:Tstringgrid;
  lb1: Tlabel;
.................................................

procedure TForm1.Button5Click(Sender: TObject);
var i,D,max: integer;

begin
 if CheckListBox1.checked[0] = true then
  begin
   notebook1.Visible:=true;
   notebook1.pages.Add(inttostr(1));
   notebook1.activePage:='1';
   d:=strtoint (inputbox ('InputData','incert D','1'));
   st1:=Tstringgrid.Create(form1);
   st1.Parent:= Notebook1;
   st1.FixedCols:=0;
   st1.FixedRows:=0;
   st1.Width:=297;
   st1.Height:=47;
   st1.ColCount:= stringgrid1.ColCount;
   st1.defaultColwidth:=25;
   st1.DefaultRowHeight:=25;
   st1.RowCount:=0;
   st1.Top:=40;
  
   for i:=0 to stringgrid1.ColCount-1 do
    begin
      st1.Cells[i,0]:=intTOstr(strTOint(Stringgrid1.Cells[i,0])* trunc(exp(ln(d)*(i))) );
    end;


 end;
{**********************************************}
If checkListBox1.Checked[1] = true then
    begin
      notebook1.Visible:=true;
      notebook1.pages.Add(inttostr(2));
      notebook1.ActivePage:='2';
      lb1:=Tlabel.Create(Form1);
      lb1.Parent:= Notebook1 ;
      lb1.Font.Size:=14;
      lb1.Left:=10;
      lb1.top:= 10;
      lb1.Color:=clred;
      max:= strtoint(stringgrid1.Cells[1,0]);

      for i:=3 to stringgrid1.ColCount-1 do
       begin
         if strtoint(stringgrid1.Cells[i,0]) > max then
          max:= strtoint(stringgrid1.Cells[i,0]);
       end;

       lb1.Caption:=inttostr(max);
   
    end;