Параллельные процессы в Delphi 2010

[Maxjuvefan]

Ребят, есть код:

procedure TFormMain.BitBtn2Click(Sender: TObject);
begin
   FormAnimate.ShowModal;
   ADOStoredProcImport.ExecProc;
   FormAnimate.Close;
   ShowMessage('Информация передана');
end;

В этой процедуре идет вызов отдельной формы с анимацией, на ней располагается компонент TAnimate, к компоненту прикреплен файл avi. После вызова формы идет использование хранимой процедуры ADOStoredProcImport.ExecProc, которая осуществляет передачу данных из файла в базу данных. Далее закрытие формы с анимацией и вывод сообщения, что данные переданы. Проблема в том, что процессы идут последовательно, и пока форма с анимацией работает, вызов хранимой процедуры не осуществляется.
Как сделать в Delphi 2010, чтобы эти два процесса шли одновременно, то есть во время работы хранимой процедуры (передача данных) на экране шла анимация с другой формы?

[spirit-ua]

как вариант через потоки

[Stilet]

ShowModal убери для начала.