Yo lo haría básicamente de dos maneras distintas:
1ª) Arrancaría un timer justo antes de empezar el proceso ... y dentro de ese timer pondría
ProgressBar.Position:=ProgressBar.Position+1;
no te olvides de poner un Application.ProcessMessages;
al acabar el proceso se para el timer y ya esta.
la otra manera ... es insertar directamente en medio del program el porcentaje que creas apropiado.
me explico ... imaginate lo siguiente....
procedure Tal;
begin
PBar.Value:=0;
InicializoAlgo;
PBar.Position:=25;
ComprueboAlgo;
PBar.Position:=30;
LeoDatosFichero;
PBar.Position:=50;
etc...
end;
Espero te haya dado la idea :)