Todo depende de qué signifique "cargar sistema"
Por ejemplo, si tienes varios componentes TTab puedes ajustar ProgressBar.Max al número de tablas, ProgressBar.Step a 1 y usar ProgressBar.StepIt después de abrir cad tabla:
Código:
ProgressBar.Max := 3;
ProgressBar.Step := 1;
ProgressBar.Position := 0
Table1.Open;
ProgressBar.StepIt;
Table2.Open;
ProgressBar.StepIt;
Table3.Open;
ProgressBar.StepIt;
El hecho es que las componentes ProgressBar sirven cuando se tiene una noción del número de eventos y puedes determinar cuándo sucede cada uno de ellos.
Esto no siempre es así. Por ejemplo, si ejecutas una consulta SQL, al menos con Paradox, no hay manera de ver cuándo cada registro del resultado llega a la aplicación por lo que no sirve un ProgressBar y lo mejor que se puede hacer es usar un "splash screen" para indicar al usuario que debe esperar.
// Saludos