TPageControl en tiempo de ejecución

[esocrates]

Con este intento consigo crear un TabSheet y un Memo. Pero El Memo creado no toma las dimensiones del TabSheet. El Form se maximiza y el TabSheet queda normal con un Memo Mimimizado. He hecho la aplicación varias veces, por si había algún problema y se repite lo mismo.
Si se les ocurre algo para orientarme en cual puede ser el error se los agradeceré.
Un saludo

   var
   MiHoja: TTabSheet;
begin
   MiHoja :=  TTabSheet.Create(Self);
   MiHoja.PageControl := PageControl1;


   with TMemo.Create(Self) do
       Parent := MiHoja;
      Align := alClient;
end;