program MyData;

uses
  {$IFDEF UNIX}cthreads, clocale,{$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Forms, UFormTables, UCore, UIpAddress, Common,
  UFormTable, UFormRecords, UFormRecord, UFormFields, UFormField,
  UFormMain, SysUtils, UFormConnect, UFormDatabases, UFormPreferences;

{$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);
  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.