Delphi 2017 R3 |verified| -

procedure StartBackgroundWork; begin TTask.Run( procedure begin // background processing Sleep(2000); TThread.Queue(nil, procedure begin ShowMessage('Background work complete'); end); end); end;