En realidad el mensaje cmAfterShow se usa cuando se quiere hacer algo que lo impide el evento que se quiere usar, Me explico:
Si queremos ocultar una ventana en el evento OnShow, Delphi nos dirá que no podemos hacerlo, en ese caso creamos el mensaje anterior y ya podemos ocultar la ventana en el AfterShow.
En este caso, creo que se puede hacer de otra forma y ahorrarnos un mensaje.
Simplemente llamas a la rutina con ShowModal, y creas un procedimiento público en esa ventana para incrementar la barra de progreso:
Código Delphi
[-]
procedure TForm1.IncPg(valor:integer);
begin
progressbar1.position := valor;
Form1.Update;
end;
La explicación de que
guglu haya usado esa técnica creo deducir cual es:
Código Delphi
[-]
procedure TForm_con_Barra.CMAfterShow(var Msg: TMessage);
begin
progressbar1.position := valor;
Form1.Update;
end;