Ventana de Espera

[totote]

Buenas gente.

He creado una aplicación que importa datos desde una base de datos a otra, hasta ahi voy bien, pero cuando son muchos regitros, se demora un poco, entonces para hacer un poco menos tediosa la espera cree un formulario con un gif animado, entonces mientras realiza la importación muestro el formulario, el problema es que al formulario me lo muestra pero al gif animado no, hice una prueba de poner un boton para q me muestre el formulario al hacerle click y si me lo muestra al formulario y al gif animado, el problema es que cuando esta guardando los datos no me lo muestra al gif que es lo que debo hacer.

Este es el código q utilizo para mostrar el formulario:

Código Delphi [-]
procedure TfrmPrincipal.btnImportarClick(Sender: TObject);
var
  e: TfrmEspera;
begin
  dm.Table1.First;
  e:= TfrmEspera.Create(self);
  i:= 0;
  e.Show;
  e.Enabled:= True;
  while i < (dm.Table1.RecordCount) do
  begin
      .
      // Código de ingreso de datos
      .
      dm.Table1.Next;
      i:= i + 1;
  end;
  dm.cdsDestino.ApplyUpdates(0);
  e.Enabled:= False;
  e.Close;
  e.Free;
end;

Alguna sugerencia? lo estoy haciendo bien? como debería hacerlo?

Saludos.