program chronis; {$mode objfpc}{$H+} uses {$IFDEF UNIX}{$IFDEF UseCThreads} cthreads, {$ENDIF}{$ENDIF} Interfaces, // this includes the LCL widgetset Forms, UPersistentForm, URegistry, UTreeState, SysUtils, UItemView, UItemEdit, ULoginForm, UMainForm, UItemAdd, TemplateGenerics, CoolTranslator, Common, CoolWeb, USystem, UCore, UApplicationInfo, USettingForm, UDataTypes, UImportStructureForm, UItemSelect, ULoginProfileForm, UAboutForm { you can add units after this }; {$R *.res} {$IFDEF DEBUG} const HeapTraceLog = 'heaptrclog.trc'; {$ENDIF} begin {$IFDEF DEBUG} // Heap trace DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog); SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLog); {$ENDIF} Application.Initialize; Application.CreateForm(TCore, Core); Application.CreateForm(TMainForm, MainForm); Application.CreateForm(TLoginForm, LoginForm); Application.CreateForm(TItemViewForm, ItemViewForm); Application.CreateForm(TItemEditForm, ItemEditForm); Application.CreateForm(TItemAddForm, ItemAddForm); Application.CreateForm(TSettingForm, SettingForm); Application.CreateForm(TImportStructureForm, ImportStructureForm); Application.CreateForm(TItemSelectForm, ItemSelectForm); Application.CreateForm(TLoginProfileForm, LoginProfileForm); Application.CreateForm(TAboutForm, AboutForm); Application.Run; end.