source: branches/ByteArray/ByteArray.lpr

program ByteArray;

uses
  {$IFDEF UNIX}
  cthreads, clocale,
  {$ENDIF}
  {$IFDEF HASAMIGA}
  athreads,
  {$ENDIF}
  Interfaces, SysUtils,// this includes the LCL widgetset
  Forms, FormConsole, FormDevice, FormScreen, FormDisassembler,
  FormAssembler, Cpu, BigInt, Channel, Memory, FrameBuffer, Device,
  Storage, DeviceMapper, Machine, Disassembler, Instructions, Parser, Message,
  Assembler, Serial, Mouse, FormSourceEditor, FormMessages, FormMemory,
  FormStorage, Utils, FormSettings, Core, FormDebugger, VarInt, Int
  { you can add units after this };

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