Показывать форму пользователю с информацией о выполнении длительной задачи

form.ShowModal;
// процедура
form.Close;//не выполняется

SetWindowPos(formMain.Handle,Handle,Left,Top,Width,Height,SWP_NOACTIVATE Or SWP_NOMOVE Or SWP_NOSIZE);

formLoading.Show;
formLoading.Timer1.Enabled:=True;
Application.ProcessMessages;
//Тут процедура которая очень долго выполняется
formThink.Timer1.Enabled:=False;
formThink.Hide;

procedure TestThread.Execute;
begin
  Synchronize(MyProcedure);
end;

procedure TestThread.Execute;
begin
  { Place thread code here }
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Thread: TestThread;
begin
  Thread:=TestThread.Create(True); // создается поток, но не запускается, если тут указать False - поток запустится на выполнение, тогда следующий метод можно не вызывать:
  Thread.Resume;              // запускаем поток
end;

FormStyle = fsNormal
WindowState =  wsNormal
    Visible = False

PROCEDURE TForm2.FormActivate(Sender: TObject);
BEGIN
  WITH Form2 DO
 SetWindowPos(Handle,hWnd_TopMost,Left,Top,Width,Height,swp_noActivate+swp_noMove);
END;
PROCEDURE TForm2.FormClose(Sender:TObject;VAR Action:TCloseAction);
VAR
  I : BYTE;
BEGIN
  Action:=CaHide;
END;