Crear objetos dentro de otro objeto.

[Nieto]

Buenas tardes,

Foro,

Una pregunta estoy tratando de hacer un Pagecontrol con "n" cantidad de Tabsheet (dinamico), esta parte ya lo puede hacer pero lo que no he podido hacer es asignarle a cada tabsheet un dbgrid tambien es dinamico.

Este el el codigo:

Código Delphi [-]
  with sk_Empresas do begin
       First;
       while not Eof do begin
           with TTabSheet.Create(self) do begin
                 Contador := Contador + 1;
                 PageControl := PageControlIngresos;
                 Caption := FieldByName('D_Empresa_Corta').AsString;
                 Name := FieldByName('K_Empresa').AsString;
                 Obj := TwwDBGrid.Create(Self);
                 Obj.Name := 'Gr'+Name;
                 PageControl.InsertControl(Obj);
                 Obj.Enabled := True;
                 Obj.Visible := True;
                 Obj.Align := alClient;
            end;
            Next;
       end;

El problema es que si me crea los dbGrid pero no en cada tabsheet creado.

Que me falta ???