antigrav

Result := MemStream.ReadComponent(nil);

Сама суть Synchronize в том, чтобы выполнить код в главном потоке

а вы понимаете в котором потоке выполняется Synchronize() ?
попробуйте сначала получить ThreadId, а уже потом переходить в ГП и выводить это значение на экран

https://bitbucket.org/vkrapotkin/commonapi/src/master/UVKCommonLog.pas
log.log('TrqdAttributes LoadFromFolder (' + Attributes.Count.ToString + ')'); в логе
14:15:13.463 (000013D8) TrqdAttributes LoadFromFolder (5)
или
14:15:12.504 (main) Login successful.

Неужели так сложно не ссылки кидать, а приложить файлы? 🙄
Среда разработки Delphi 10.3.pdf Delphi. Программирование для Windows, OS X, iOS и Android [2014].pdf Мобильная разработка в delphi.pdf
Программирование_на_Delphi_для_школ.pdf

не понял вопрос. мы работаем в обработчике одного из событий очереди сообщений в главном потоке.
событие отрисовки тоже стоит в очереди в главном потоке. закончим обработчик, запустится следующий, произойдет перерисовка.
 
 

Вам уже ответили, но можете конечно сделать так в главном потоке
procedure Test; const n = 200; var I: Integer; begin pb1.Min := 0; pb1.Max := n - 1; for I := 0 to n - 1 do begin pb1.Value := I; sleep(10); Application.ProcessMessages; end; end;