Modelo de uma thread Delphi XE

var vThread: TThread; begin vThread := TThread.CreateAnonymousThread(procedure () var VReturnVersaoApp: string; VTestConnection: Boolean; begin TThread.Synchronize (TThread.CurrentThread, procedure () begin end); end); vThread.FreeOnTerminate := True; vThread.Start();