Dúvida Splash Screen

Senhores,
Estou com uma dúvida para criar um splash screen com Gif Animado na hora que executo uma Stored Procedure.
Segue Código:
begin  with SP.Calculo do  begin    // Seto os Parametros pro Cálculo  end;
  // Executando Procedimento  try    Form1 := TForm1.Create(Self); // Form1 é meu Splash Screen    Form1.Show;    Form1.Repaint;    SP.Calculo.ExecProc; //Executo Procedimento  except on E: Exception do    begin      Form1.Close;      Showmessage('Problema no Cálculo.'+#13+e.Message);      exit;    end;  end;    // Finalizando o Cálculo  Form1.Close;  Showmessage('Cálculo realizado com Sucesso !!!');end;
//OBS:// Oque esta acontecendo é que Meu Splash Screen que tem um gif animado, não esta ficando animado :-)// A mesma operação é feita em form's sem Execução de Stored Procedures e dá tudo corretamente.
// No Form1 (Splash Screen) Só tenho um componente RxGifAnimator e um label.// Utilizo o Delphi 2010
Desde já agradeço a todos pela colaboração