1inherited DbgOutputForm: TDbgOutputForm 2 Left = 108 3 Height = 200 4 Top = 140 5 Width = 400 6 BorderStyle = bsSizeToolWin 7 Caption = 'Debug output' 8 ClientHeight = 200 9 ClientWidth = 400 10 OnClose = FormClose 11 OnCreate = FormCreate 12 object txtOutput: TMemo[0] 13 Left = 0 14 Height = 200 15 Top = 0 16 Width = 400 17 Align = alClient 18 PopupMenu = mnuPopup 19 TabOrder = 0 20 end 21 object mnuPopup: TPopupMenu[1] 22 left = 336 23 top = 96 24 object popClear: TMenuItem 25 Caption = '&Clear' 26 OnClick = popClearClick 27 end 28 object popCopyAll: TMenuItem 29 Caption = 'Copy all output to clipboard' 30 OnClick = popCopyAllClick 31 end 32 end 33end 34