[eXplorer]

Всем добрый день! начал изучать работу с потоками... и сталкнулся с такой проблемой... (создаю например 5 потоков), что бы какую то часть кода выполнял только один поток, а все остальные ожидали окончания выполнения этого кода как я понял используется "TCriticalSection" и его методы Enter и Leave... написал вот такой код для процедуры Execute:

Код:

procedure TMyThread.Execute;
var
i:integer;
cs:TCriticalSection;
begin
for i:=0 to 10000 do begin
cs.Enter;
s:='2*'+inttostr(i)+'='+inttostr(i*2);
cs.Leave;
Synchronize(show);
end;
end;

выдаёт сообщение:
"Debugger Exception Notification"
в чём ошибка? помогите пожалуйста!