How to synchronize between displaying the processor and running the loops in Delphi Parallel.For?

Question

I have a Parallel.For in My program as follows :

procedure TForm1.Button1Click(Sender: TObject);
var
n,m:integer;
handle: THandle;
begin
//BeforeTest;
Progres