program CriticalSectionExample1; {$mode objfpc}{$H+} uses {$IFDEF UNIX} cthreads, {$ENDIF} Interfaces, // this includes the LCL widgetset Forms { add your units here }, CriticalSectionUnit1; begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end.