Tamaño formulario hijo

[craven]

Hola a todos. ¿Qué tal? Aqui estoy de nuevo para consultaros una cosilla. Os explico. Mi aplicacion es MDI, tengo un formulario padre que crea, cuando el usuario pulsa un botoncito, un formulario hijo. Lo que sucede es que dicho formulario hijo debe tomar un tamaño determinado, según el tamaño del formulario padre. Lo que yo he hecho es lo siguiente.

En la unidad correspondiente al formulario hijo he añadido un procedimiento tal que asi:

procedure CrearFormularioHijo (cW, cH : Integer) ;

var
ventana : TFormularioHijo ;

implementation

procedure CrearFormularioHijo (cW, cH : Integer) ;
begin
Application.CreateForm (TFormularioHijo, ventana) ;

with ventana do
begin
Top := 0 ; Left := 0 ;
Width := cW + 100 ;
Height := cH + 100 ;
end ;
end ;


Una vez hecho esto, en el formulario padre, dentro del método de pulsación de un botón, añado la siguiente linea:

CrearFormularioHijo (Width, Height) ;

Mi consulta es la siguiente. ¿Lo que he hecho es correcto desde el punto de vista de lo más óptimo, o hay otra forma mejor y rápida de hacerlo? Gracias de antemano a todos y un saludo.

[cso2000]

Hola: Pruebate esto

MiForm := TMiform.Create(formPadre );

MiForm.Top := 0;
MiForm.Left := 0;
MiForm.Width := ValorW;
MiForm.Height := ValorH;
MiForm.Show;

Esto te deve servir y no necesitas crear otros procedimientos