[[eduarcol]]

To lo haria en el dpr, algo asi

Código Delphi [-]
Application.Initialize;
Application.ProcessMessages;
//Carga la pantalla de progreso
Progreso := TProgreso.Create;
try
   Progreso.Show;
   if not ObRutinas.EjecutarParametros then 
      ObRutinas.msgError( msErrorParametros );
finally
   FreeandNil(Progreso);
end;