Idea para LoadingForm
 

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:

Código Delphi [-]
 
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...:

Código Delphi [-]
 
procedure LoadAndWait(Formulario: TForm);
begin
   //Muestra el LoadingForm
  //Crea Formulario y bla bla bla
  //Cierra el LoadingForm 
end;

Saludos