barra de progreso en carga de form !!!!!

[david_uh]

hola foro otra vez
estoy cargando un form asi:

Código Delphi [-]
 if not Assigned(frm_IngPedidos) then
    begin
        frm_IngPedidos := Tfrm_IngPedidos.Create(Self);       
    end;
    frm_IngPedidos.Show;

pero este form demora en su carga pues en el evento create hago varias operaciones, como podria hcer para mostrar un pre-load mostrando enestado de la carga del form ya sea que aparezca una barra de progreso o tra animacion que indique el porcentaje de carga

gracias por cualquier respuesta