подскажите с TEvent в Delphi, пожалуйста

Delphi синхронизация class tevent runerror

Все элементарно просто, но не могу понять, что не так.
Я использую не Borland IDE, а Lazarus, в нем нет даже справки. Я не нашел документации по TEvent( Хотелось бы не документацию по API, не MSDN, а использование класса TEvent.

не работает даже такой простой код:

program
Project1;

{$mode objfpc}{$H+}

uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes,
SyncObjs;

{$IFDEF WINDOWS}{$R project1.rc}{$ENDIF}

begin
with TEvent.Create(nil,false,false,'') do// ЭТА СТРОЧКА НЕ РАБОТАЕТ
begin
WaitFor(20);
Free;
end;
writeln('ура!');
end.

Не смог придумать примера проще.
Выдает "Project project1 raised exception class 'RunError(232)'"

пусть даже мой код будет бесконечным циклом, тупиком или что угодно, но почему exception?

Примечание:
Неужели? Заработало! Спасибо огромное. Надо будет разобраться, почитать...
Ответы:
google говорит, что эта ошибка происходит, когда не добавлен модуль cthreads. У вас он добавлен, но с какими-то условиями. Попробуйте убрать эти условия.


14 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.