[Neftali [Germán.Estévez]]

Si vas a tener que hacer cosas entre el Create y el Show no vas a poder utlizar ésta rutina, a no ser que siempre vayas a realizar las mismas cosas con tus formularios (como por ejemplo cambiar el Label), en cuyo caso basta con que amplies la rutina:

Código Delphi [-]
procedure TFP.MostrarModal(AClass : TFormClass; NewCaption:String);
begin
  with AClass.Create(Application) do
    Caption := NewCaption;
  try
    showmodal;
  finally
    Free;
  end;
end;

Si no esí (que es lo más seguro) pues debes desechar ésta rutina y realizar éste código y el resto de operaciones en los lugares donde lo necesites.