object DiagForm: TDiagForm
  Left = 344
  Top = 79
  Caption = 'DiagForm'
  ClientHeight = 445
  ClientWidth = 601
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Segoe UI'
  Font.Style = []
  OnClose = FormClose
  OnCreate = FormCreate
  TextHeight = 13
  object TraceBox: TRichEdit
    Left = 0
    Top = 0
    Width = 601
    Height = 445
    Align = alClient
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Segoe UI'
    Font.Style = []
    HideSelection = False
    HideScrollBars = False
    Lines.Strings = (
      '')
    ParentFont = False
    PlainText = True
    PopupMenu = PopupMenu
    ReadOnly = True
    ScrollBars = ssBoth
    TabOrder = 0
  end
  object PopupMenu: TPopupMenu
    Left = 410
    Top = 365
    object mCopy: TMenuItem
      Caption = 'Copy'
      OnClick = mCopyClick
    end
    object mPaste: TMenuItem
      Caption = 'Paste'
      OnClick = mPasteClick
    end
    object mSelAll: TMenuItem
      Caption = 'Select All'
      OnClick = mSelAllClick
    end
    object mCopyAll: TMenuItem
      Caption = 'Copy All '
      OnClick = mCopyAllClick
    end
  end
end