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;