Правильное применение Critical Section

var
T: tstringlist;//где-то лист строк уже создался, опустим не важный момент, но var - это это переменный для unit'a
 
...
procedure something;
var
s:string;
begin
if i>=T.count-1 then
  i:=0
else
  inc(i);
 
s:= t[i];
end;

procedure log(s:String);
begin
writeln(f,s);
end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, SyncObjs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
type
  TThreadA=class(TThread) protected procedure Execute; override; end;
  TThreadB=class(TThread) protected procedure Execute; override; end;
 
var
  Form1: TForm1;
  cs:TCriticalSection;
  t1:TThreadA;
  t2:TThreadB;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Clear;
cs:=TCriticalSection.Create;
t1:=TThreadA.Create(True);
t2:=TThreadB.Create(True);
end;
 
procedure TThreadA.Execute;
var i:Integer;
begin
  inherited;
cs.Enter;
for i:=0 to 9 do Form1.Memo1.Text:=Form1.Memo1.Text+'A';
cs.Leave;
end;
 
procedure TThreadB.Execute;
var i:Integer;
begin
  inherited;
cs.Enter;
for i:=0 to 9 do Form1.Memo1.Text:=Form1.Memo1.Text+'B';
cs.Leave;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
t1.Resume;
t2.Resume;
end;
 
end.

TThreadA  =class(TThread)
 cs:TCriticalSection;
end;
 
TThreadB  =class(TThread)
 cs:TCriticalSection;
end;

cs1 := TCriticalSection.create;
cs2 := TCriticalSection.create;
T1 := TThreadA.Create();
t1.cs := cs2; <-- каждый поток будет использовать ту CS которую ему сказано
 
T2 := TThreadB.Create();
t2.cs := cs1;

implementation
 
{$R *.dfm}
 
var
CS: TcriticalSection;