//线程
TThread.CreateAnonymousThread(
procedure
begin
//内容
end //此处无分号
).Start;
//同步
TThread.Synchronize(nil,
procedure
begin
//
end);
//线程
TThread.CreateAnonymousThread(
procedure
begin
//内容
end //此处无分号
).Start;
//同步
TThread.Synchronize(nil,
procedure
begin
//
end);