如何在拉撒路中使用线程？

Question

我正在使用Lazarus开发多线程应用程序。据我所知，我必须将类“cthreads”添加到uses子句，并在“ifdef usesCthreads”中定义它，所以这里是代码的相关部分：

unit Unit2; 
{$mode objfpc}{$H+}
{$IFDEF usesCthreads}
Cthreads;
{$ENDIF}
interface
uses Forms, Classes, SysUtils, SyncObjs, Math, IdHttp,DateUtils,Dialogs,
ComCtrls, IdHashMessageDigest,idHash,IdComponent, cthreads;

没有编译错误，但是没有创建表单，因为我在编译后立即收到此消息：'运行错误（211）'，加上程序集窗口显示：Cthreads_init（127）。 我想我的代码有问题，那么它是什么？ 谢谢你的回复。