Barra de carga al iniciar aplicación

[pgranados]

Gracias por su apoyo Casimiro y Neftali , lo pude realizar sin problemas, comparto codigo.

Código Delphi [-]
 
begin 
  Application.Initialize;
  FormaBarraEntrada:= TFormaBarraEntrada.Create(Application);
  FormaBarraEntrada.Show;
  FormaBarraEntrada.Update;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TFormaPrincipal, FormaPrincipal);
  FormaBarraEntrada.Free;
  Application.Run;
end.