Jak zabezpieczyć zmiennej przed dostępem?

Witam.

Potrzebuje zabezpieczyć zmienną globalną przed jednoczesnym dostępem z różnych watków. Zastosowałem klasę TCriticalSection w taki sposób:

var
            blokada : TCriticalSection;
            zmienna_globalna : integer;
       . . . . .

       Procedure;
       begin

            Blokada.Acquire; 
            try
                 zmienna_globalna:=10;
         
            finally 
                 blokada.Release; 
            end;

           . . .

Problem w tym że wyskakuje błąd nieprawidłowego dostępu do pamięci.
Jak poprawnie zabezpieczyć zmienną?

Z góry dziękuje za pomoc.

A masz gdzieś coś takiego:

Blokada:=TCriticalSection.Create;

Dzięki. Podziałało.