Как правильно из потока менять Переменные в другом потоке?

[Pcrepair]

Добрый день. Есть следующий код потока

Procedure TStartTHreadLoader.BeginLoadTHreads(const Urls:string);
var
T:TStringList;
Indx1,Indx2:integer;
UrlStr:string; (*Перем для хранения УРЛ при передаче в СТЕК*)
Url:string; (*строка = УРЛ из массива*)
NumOfTHreads:integer; (*число строк с УРЛ переданное из МЕМО*)
UrlStack:TStack<String>; (*объявляем строковый СТЕК*)
begin
  T:=TStringList.Create;
  T.Text:=Urls;
    (*------------ВОПРОС1---------------------*)
      CS.Enter;  (*вход в КС*)
         try
         (*инициализация ГлобПЕрем перед циклом.
         сделать как метод класса?*)
            CurrentNumOfTHreads:=0;
         finally
            Cs.Leave;  (*выход из КС*)
         end;
   (*----------------------------------*)
   NumOfTHreads:=T.Count;

   (*---ВОПРОС2 вот тут очень криво, обращение к компонентам основной формы*)
     CS.Enter;
        try
        (*сделать вызов метода метода класса?*)
           Form1.Label2.Caption:=IntToStr(NumOfTHreads);
        finally
           Cs.Leave;
        end;
   (*---------------------------------------------------------------*)
   
     UrlStack:=TStack<String>.Create(); (*создаем СТЕК типа строка*)
      (*---ЦИКЛ ввода строк УРЛ в СТЕК-----*)
       for Indx1 := 0 to T.Count-1 do
          begin
           UrlStr:=T[Indx1];
           UrlStack.Push(UrlStr);
          end;
       (*----------------------------------*)
       (*----ЦИКЛ запуска потоков через УРЛ из СТЕК*)
       while (UrlStack.Count <> 0) do
        (*------------------------------------*)
        for Indx2 := 0 to UrlStack.Count-1 do
          begin
            if (10 > CurrentNumOfTHreads) then
              
              (*----------Вопрос 3----------------*)
              begin
                CS.Enter;
                  try
                    Inc(CurrentNumOfTHreads, 1); (*увеличиваем на +1*)
                  finally
                    Cs.Leave;
                  end;
              (*-------------------------*)
              
                if UrlStack.Count <> 0 then
                Url:=UrlStack.Pop;
                StartLoadTHread(Url); (*вызов процедуры запуска потока закачки страницы*)
                Sleep(10); (*интервал между запусками потоков*)
              end
              else Sleep(5); (*обязательно, иначе процессор вход в перегрузку*)
             (*---------------------------*)
        end;
       (*-----------------------------------------*)
   FreeAndNil(UrlStack);
   FreeAndNil(T);
end;

Внимание!!! Вопросы:
код помеченный как ВОПРОС1...3 через КС обращается к основному потоку. в случае обращения к объекту в основном потоке надо делать процедуру как метод класса. а в данном случае надо ли делать метод класса из обращения к ГП типа СТРОКА и к ЛЕЙБЛ на основной форме?

[3D Hunter]

создавать отдельный метод для обращения к глобальным переменным не требуется.а вот то,что бы обращаетесь к свойствам визуальных компонентов через поток,это неверно.там,где идет обращение к компонентам,этот код выносится в отдельный метод потока и вызывается в вашей процедуре через synchronize()

[Pcrepair]

3D Hunter, спасибо за подсказку, но:

а если глоб перем представляет собой объект, в частности СТЕК из Дженерик.
тут как раз косяк был, когда через КС из потока вызывал метод этого класса(СТЕК.вставить).
когда переделал вызов в отдельную процедуру в составе которой были КС, косяк полностьб пропал

[3D Hunter]

сделайте критическую секцию внутренней приватной переменой вашего класса-дженерика и в методе вставки используйте вхождение и выход из нее.это не только абстрагирует логику класса,но и избавит от необходимости помнить,где мы входили или выходили из секции.кроме того,использование классом своей секции в методах ускоряет работу в вашем случае,ибо эта секция используется внутри класса,а для глобальных нужд создается другая секция.старайтесь писать классы сразу потокобезопасными,если они будут использоваться более чем одним потоком.

[Pcrepair]

и все таки не понятно. вот у меня есть ГлобПерем СТЕК

unit uGlobalVar;
interface
uses Classes, SysUtils, SyncObjs, Generics.Collections;
var
CS:TCriticalSection; (*используем КС для передачи результата в основной поток*)
gRestartLoadUrls:TStack<String>; (*объявляем строковый СТЕК для незакачанных УРЛ*)
implementation

initialization
   Cs:=TCriticalSection.Create;
   gRestartLoadUrls:=TStack<String>.Create(); (*создаем СТЕК типа строка*)
   gRestartLoadUrls.Clear(); (*удаляем все строки на всякий случай*)
finalization
  FreeAndNil(CS);
  FreeAndNil(gRestartLoadUrls);
end.

в которую через КС потоки через gRestartLoadUrls.Add пишут свои строковые данные
по окончании цикла работы, строки накопившиеся в СТЕК потом обрабатываются в потоке, доступ опять через КС и gRestartLoadUrls.Pop

мне что то совершенно непонятно каким образом сделайте критическую секцию внутренней приватной переменой вашего класса-дженерика и в методе вставки используйте вхождение и выход из нее

написать процедуру с использованием СТЕК? в которой использовать КС?
желательно пример, что то о таком вообще не читал

[3D Hunter]

type
tstack=class
protected
fRTL=trtlcriticalsection;
public
procedure add();
...
Procedure add();
begin
try
ENTERCRITICALSECTION(fRTL);
<<ТУТ ВАШ КОД>>
FINALLY
leavecriticalsection(fRTL);
end;
end;

[3D Hunter]

критическую секцию сделайте классовой переменной.вот о чем хотел сказать.возможны ошибки,сейчас в армии и с телефона не очень удобно