Create frames at runtime - forms

Question

I need to create frames at runtime, there are 44 frames so I intend to use multithreading for that. Now we have 44 Tabsheets on PageControls which takes so long to load.
But I can not.
The idea is as follows:
I have OnCreate from my main form:
procedure TFConfMERC.FormCreate(Sender: TObject);
begin
//Here you should instantiate the threads that will instantiate the frames and then only proceed with the main thread when all other threads have instantiated the frames of this form
end;
Is it possible to implement this?
I need threads because the form takes 20 seconds to open, and we need to improve performance on this.
OBS: This code works on Delphi 11, but it gets stuck in Delphi XE 7.
var
Tasks: Array[0..1] of ITask;
begin
Tasks[0] := TTask.Create(procedure
begin
frame2 := TFrame2.Create(Self); //stuck here
frame2.parent := TabSheet1;
sleep(5000);
end);
Tasks[1] := TTask.Create(procedure
begin
frame3 := TFrame3.Create(Self); //stuck here
frame3.parent := TabSheet2;
sleep(5000);
end);
Tasks[0].Start;
Tasks[1].Start;
TTask.WaitForAll(Tasks);

Answer 1

Here is the problem solved!!!!!! =D
procedure TForm1.FormCreate(Sender: TObject);
var
T1: TThread;
T2: TThread;
FSemaforo: TSemaphore;
begin
FSemaforo := TSemaphore.Create(nil, 2, 2, '');
T1 := TThread.CreateAnonymousThread(procedure
begin
FSemaforo.Acquire;
try
TThread.Sleep(5000); //Teste de paralelismo
TThread.Synchronize(TThread.CurrentThread,
procedure
begin
frame3 := TFrame3.Create(Self);
frame3.Parent := Panel2;
end);
finally
FSemaforo.Release;
end;
end);
T2 := TThread.CreateAnonymousThread(procedure
begin
FSemaforo.Acquire;
try
TThread.Sleep(5000); //Teste de paralelismo
TThread.Synchronize(TThread.CurrentThread,
procedure
begin
frame2 := TFrame2.Create(Self);
frame2.Parent := Panel1;
end);
finally
FSemaforo.Release;
end;
end);
T1.FreeOnTerminate := False;
T2.FreeOnTerminate := False;
T1.Start;
T2.Start;
{wait the threads to finish, then proceed =D}
while (not t1.Finished) or (not t2.Finished) do
begin
Application.ProcessMessages;
end;
T1.Free;
T2.Free;
FSemaforo.Free;
end;