FreePascal.ru

Надо же. Спасибо. Заработало. И потоки заработали. Замечательно!

Эти дефайны я добавил исходя из первого сообщения темы. У меня была та же проблема, что и у surface. Ему это помогло, мне, видимо, нет. Компилирую под GTK.

Добавлено спустя 16 минут 4 секунды:
К стати без этих дефайнов ошибка исчезает. Но мучает изначальная:
raised exception class 'runerror(232 ...

Ну вот. Думал, что мне это поможет... аннет! Зделал все, как описано, вот код:

program MyProgram;

{$mode objfpc}{$H+}
{$DEFINE UNIX}
{$DEFINE UseCThreads}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms
{ you can add ...