在Delphi FMX中，可以使用TThread.Synchronize方法来实现线程同步。TThread.Synchronize方法接受一个匿名方法作为参数，该方法将在主线程上下文中执行。具体的用法如下所示：
TMyThread = class(TThread)
private
procedure UpdateUI;
protected
procedure Execute; override;
end;
procedure TMyThread.Execute;
begin
// 执行耗时操作
// 调用线程同步方法更新UI
TThread.Synchronize(nil, UpdateUI);
end;
procedure TMyThread.UpdateUI;
begin
// 在主线程中更新UI
end;
在TMyThread的Execute方法中，可以执行一些耗时的操作。然后使用TThread.Synchronize方法调用UpdateUI方法，该方法将在主线程上下文中执行，以更新UI。
需要注意的是，由于TThread.Synchronize方法会在主线程上下文中执行，因此UpdateUI方法中不能执行耗时操作，以免阻塞主线程的执行。
