delphi_thread_ui.pas

  TThread.CreateAnonymousThread(procedure ()
  var
    I: Integer;
  begin
    TThread.Synchronize(nil,
      procedure
      begin
        { Update UI components at begining }
      end
    );
    
    { Method containing code to execute }
    YourUiBlockingProcedure();
    
    TThread.Synchronize(nil,
      procedure
      begin
        { Update UI components after completion }
      end
    );
  end).Start;