TCriticalSection的用法解决方法

TCriticalSection的用法

  我想学习TCriticalSection的用法，如是自己写了个程序。当单击按钮时创建两个线程，等等。有关代码如下：

  var
  Form4: TForm4;
  //CS :TRTLCriticalSection;
  CS1:TCriticalSection;  
implementation
{$R *.dfm}
procedure TForm4.Button1Click(Sender: TObject);
begin
  //InitializeCriticalSection(CS);
  CS1.Create;//此句编译没问题，运行时出错
  TiniThread.Create(False);
  TiniThread.Create(False);
end;

  当运行到CS1.Create时报错：
  Access violation at address 7C931A39 in module 'ntdll.dll'. Write of address 00000008.

  这是什么原因哦，我找了好久都搞不定。盼高手指点！

[解决办法]
CS1:=TCriticalSection.Create;