While we’re talking things Parallel, the other part of the same demo from last post showed spawning a single task that slept for awhile and then called ShowMessage.
procedure TFormThreading.Button1Click(Sender: TObject);
var
aTask: ITask;
begin
// not a thread safe snippet
aTask := TTask.Create(procedure
begin
sleep(3000);
ShowMessage('Hello');
end);
aTask.Start;
end;
Note the comment. Read On…