program Demo; uses {$IFDEF UNIX}{$IFDEF UseCThreads} cthreads, {$ENDIF}{$ENDIF} Interfaces, // this includes the LCL widgetset Forms, SysUtils, FormMain, TemplateGenerics; {$R *.res} const HeapTraceLogFileName = 'heaptrclog.trc'; begin DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLogFileName); SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLogFileName); Application.Initialize; Application.CreateForm(TFormMain, FormMain.FormMain); Application.Run; end.