Пишу программу с поддержкой Threads на Free Pascal под Windows.

Возникли следующие проблемы:

1. BeginThread всегда выдает ошибку, хотя поток запускается и нормально работает.
2. Не работают WaitForThreadTerminate, KillThread (единственное, что работает, это EnterCriticalSection и LeaveCriticalSection).

Кто-нибудь сталкивался с таким?

Попробуй создавать через CreateThread. Уничтожать TerminateThread.
И вообще - какие ошибки выдаёт?

В описании модуля System (равно, как и других модулей Free Pascal) функции CreateThread и TerminateThread отсутствуют (может быть в других версиях Паскаля они и есть).

Функции возвращают только коды ошибок, которые, как следует из описания, "специфичны для системы". Номера разные, где их посмотреть, я не знаю.

Еще один непонятный момент. Я проверил работу критических секций с помощью приблизительно следующего кода:



В случае правильного функционирования, второй поток должен дождаться, пока первый поток не выйдет из критической секции, и в результате вторая точка должна появиться через три секунды после первой. Так оно и происходит.

Однако, когда я в реальной программе вывожу текст внутри критической секции и одновременно внутри основного потока, то тексты перемешиваются. Вот коротенький код для наглядного описания проблемы:



Иногда точки выводятся внутри 'long long long text'. Как это согласуется с предыдущей проверкой я не понимаю. Ведь по идее основной поток не должен выполняться, пока функция f не выйдет из критической секции.

Подключи модуль windows.
Это API функции, они прописаны в нём.

Отнюдь.
Чтобы главный поток останавливался, он также должен пытаться занять эту критическую секцию.
Но в твоём коде он этого не делает.
Поэтому то, что параллельный поток чего-то там занял, никак не влияет на его работу.
Т.к. он на эту секцию и не претендовал, то и ждать её освобождения не собирается и работает себе дальше, не подозревая что кто-то там чего-то там занимает.

По поводу подключения модуля windows - не вариант, так как код должен в дальнейшем компилироваться и на других платформах. Именно поэтому пишу на Free Pascal, а не на Delphi. Впрочем, остановку потоков я могу реализовать и программными методами, без KillThread. Хотя, хотелось бы все-таки разобраться.

По поводу критических секций - спасибо за объяснение. Все понял.