[[seoane]]

Prueba con algo como esto:

Código Delphi [-]
procedure Conformar(Cuantos : byte; Donde : TTabSheet );
 var
     i : Byte;
 begin
     for i := 1 to Cuantos do
     begin

       With Donde do   //Donde es la pestaña del Page control que paso como parámetro
       begin
          MiObjeto[i] := TMiObjeto.Create(Donde);
          MiObjeto[i].Name := 'Objeto'+IntToStr(i);
          MiObjeto[i].Parent   := Donde;
          MiObjeto[i].Top := Pos1;
          MiObjeto[i].Tag := i;
          Pos1 := Pos1 + 54;         
          end;
       end;
 end;