Критические секции

[Altera]

Всем привет.
Проблема с следующем. Заинтриговали критические секции. Но почему-то при использовании у меня ошибка вылетает, критическая...

Вот

var
  Form1: TForm1;
  threadsList: tList;
  cs: TRTLCriticalSection;
  index_c: integer;

function threadFunction1(value: dword): dword; stdCall;

implementation

{$R *.dfm}

function threadFunction1(value: dword): dword;
begin
   EnterCriticalSection(cs);
      index_c := index_c + 1;
   LeaveCriticalSection(cs);
   result := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
id: cardinal;
begin
   threadsList.Add(pointer(createThread(nil, 0, @threadFunction1, pointer(listBox1.Items.Add('---------')), 0, id)));
end;

Скачал примерчик откуда-то. Так он работает. Объясните, в чём ошибка

[transserg]

Altera а где ты вызывал InitializeCriticalSection для инициализации критической секции??

[Altera]

Нет. Да, спасибо