program UsbMon; uses Vcl.Forms, DUsbMonMain in 'DUsbMonMain.pas' {DlgUsbMonMain}, ThdUsbMon in 'ThdUsbMon.pas', Bs1FltCtrl in 'Bs1FltCtrl.pas'; {$R *.res} begin ReportMemoryLeaksOnShutdown := DebugHook <> 0; Application.Initialize; Application.MainFormOnTaskbar := True; Application.CreateForm(TDlgUsbMonMain, DlgUsbMonMain); Application.Run; end.