Lazarus und Threads

[DelTurbo]

Hi,
ich wollte eine Anwendung mit einem TelnetServer auf der Form1 machen. Leider läuft die anwendung nicht. Mache ich ein Konsolenprogramm, dann klappt es.

Fehlermeldung:
Threading has been used before cthreads was initialized.
Make cthreads one of the first units in your uses clause.
Runtime error 211 at $082DD08A
$082DD08A
$B6F67455
$083093E2

Was ich schon versucht habe:
http://wiki.freepascal.org/Lazarus_F...stalliert_habe

Versionen:
Lazarus 1.0
indy-10.2.0.3

In meiner anwendung ist in den Uses cthreads drin. Ich hoffe es gibt eine lösung...

Vielen dank im voraus

NACHTRAG!
Lasse ich cthreads weg, kommt folgender fehler:
TApplication.HandleException Semaphore init failed (possibly too many concurrent threads)
Stack trace:
$080A9B2C
$082DC7F9 TIDTHREAD__CREATE, line 417 of /usr/share/lazarus/1.0/components/indy-10.2.0.3/lazarus/IdThread.pas
$082DE915 TIDLISTENERTHREAD__CREATE, line 868 of /usr/share/lazarus/1.0/components/indy-10.2.0.3/lazarus/IdCustomTCPServer.pas
$082DE088 TIDCUSTOMTCPSERVER__STARTLISTENING, line 675 of /usr/share/lazarus/1.0/components/indy-10.2.0.3/lazarus/IdCustomTCPServer.pas
$082DE77A TIDCUSTOMTCPSERVER__STARTUP, line 834 of /usr/share/lazarus/1.0/components/indy-10.2.0.3/lazarus/IdCustomTCPServer.pas
$082DDC02 TIDCUSTOMTCPSERVER__SETACTIVE, line 559 of /usr/share/lazarus/1.0/components/indy-10.2.0.3/lazarus/IdCustomTCPServer.pas
$080922B8 TFORM1__BUTTON1CLICK, line 36 of unit1.pas
$081DAB82 TCONTROL__CLICK, line 2742 of ./include/control.inc
$081FF73F TBUTTONCONTROL__CLICK, line 62 of ./include/buttoncontrol.inc
$081FFE3F TCUSTOMBUTTON__CLICK, line 175 of ./include/buttons.inc
$08200491 TBUTTON__CLICK, line 355 of ./include/buttons.inc
$081FF65A TBUTTONCONTROL__WMDEFAULTCLICKED, line 26 of ./include/buttoncontrol.inc
$0806CFA6
$081CD4EE TWINCONTROL__WNDPROC, line 5322 of ./include/wincontrol.inc
$08284CC5 DELIVERMESSAGE, line 117 of lclmessageglue.pas
$08290CA6 GTK2WSBUTTON_CLICKED, line 2395 of ./gtk2/gtk2wsstdctrls.pp
$B7240064
WARNING: TLCLComponent.Destroy with LCLRefCount>0. Hint: Maybe the component is processing an event?

[DelTurbo]

Uff, habe es gefunden. Es muss ein define UseCThreads mit rein.