program MyData; {$mode delphi}{$H+} uses {$IFDEF UNIX} cthreads, clocale, {$ENDIF} Interfaces, // this includes the LCL widgetset Forms, UFormTables, UCore, Common, CoolTranslator, UFormTable, UFormRecords, UFormRecord, UFormFields, UFormField, TemplateGenerics, UFormMain, SysUtils, UFormConnect, UFormDatabases, UFormPreferences; {$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} RequireDerivedFormResource := True; Application.Initialize; Application.CreateForm(TCore, Core); Application.CreateForm(TFormMain, FormMain); Application.CreateForm(TFormTables, FormTables); Application.CreateForm(TFormTable, FormTable); Application.CreateForm(TFormRecords, FormRecords); Application.CreateForm(TFormRecord, FormRecord); Application.CreateForm(TFormFields, FormFields); Application.CreateForm(TFormField, FormField); Application.CreateForm(TFormConnect, FormConnect); Application.CreateForm(TFormDatabases, FormDatabases); Application.CreateForm(TFormPreferences, FormPreferences); Application.Run; end.