Idea para LoadingForm

[MaMu]

Necesito me den alguna idea de como hacer un LoadingForm, que muestra, no se, un "Por favor, espere..." cada vez que voy a ejecutar algun proceso determinado y que este demora algunos minutos.

La situacion es la siguiente: Aplicacion MDI. Cuando cargo un MDIChild, este primero realiza varios procesos contra una BD, por lo que quiciera mostrar el LoadingForm, y cerrarlo cuando termino todos los procesos y ya esta listo para cargar el formulario.

Quiciera poder hacer una procedimiento, combinando este:


procedure Animacionform(Enable: Boolean);
var
Info: TAnimationInfo;
begin
Info.cbSize := SizeOf(TAnimationInfo);
LongBool(Info.iMinAnimate) := Enable;
SystemParametersInfo(SPI_SETANIMATION, SizeOf(Info), @Info, 0);
end;


Asi no se muestra hasta que termine de ser cargado.

Algo asi...:


procedure LoadAndWait(Formulario: TForm);
begin
//Muestra el LoadingForm
//Crea Formulario y bla bla bla
//Cierra el LoadingForm
end;


Saludos