To lo haria en el dpr, algo asi
Código Delphi
[-]
Application.Initialize;
Application.ProcessMessages;
Progreso := TProgreso.Create;
try
Progreso.Show;
if not ObRutinas.EjecutarParametros then
ObRutinas.msgError( msErrorParametros );
finally
FreeandNil(Progreso);
end;