program DynNumberDemo; {$mode objfpc}{$H+} uses {$IFDEF UNIX}{$IFDEF UseCThreads} cthreads, {$ENDIF}{$ENDIF} Interfaces, SysUtils, // this includes the LCL widgetset Forms, UMainForm, CoolStreaming { you can add units after this }; {$R *.res} const HeapTraceLog = 'heaptrclog.trc'; begin // Heap trace DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog); SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLog); Application.Initialize; Application.CreateForm(TMainForm, MainForm); Application.Run; end.