[fpc-pascal] Where is IsMultiThreaded set under Linux?

[Andrew Brunner]

> procedure TBarThread.Execute;
> begin
>  FFinished := False;    // work-around variable
>  while not Terminated do
>  begin
>    Synchronize(@UpdateProgressBar);
>  end;
>  FFinished := True;     // work-around variable
> end;
>
What about dropping that loop and put it in UpdateProgressBar

TForm1.UpdateProgressBar;
begin
  Something here
  Application.ProcessMessages
end;

And drop the waitfor all together?