program MyData; uses {$IFDEF UNIX}cthreads, clocale,{$ENDIF} Interfaces, // this includes the LCL widgetset Forms, FormTables, Core, IpAddress, Common, FormTable, FormRecords, FormRecord, FormFields, FormField, FormMain, SysUtils, FormConnect, FormDatabases, FormPreferences; {$R *.res} {$if declared(UseHeapTrace)} const HeapTraceLog = 'heaptrclog.trc'; {$ENDIF} begin {$if declared(UseHeapTrace)} // Heap trace DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog); SetHeapTraceOutput(ExtractFilePath(ParamStr(0)) + HeapTraceLog); {$ENDIF} RequireDerivedFormResource := True; Application.Scaled:=True; Application.Initialize; Application.CreateForm(TCore, Core.Core); Application.Run; end.