object FormMain: TFormMain
  Left = 350
  Height = 948
  Top = 247
  Width = 1718
  Caption = 'VirtCpu4'
  ClientHeight = 948
  ClientWidth = 1718
  DesignTimePPI = 144
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  LCLVersion = '2.0.0.4'
  object ButtonStart: TButton
    Left = 1181
    Height = 37
    Top = 10
    Width = 113
    Caption = 'Start'
    OnClick = ButtonStartClick
    ParentFont = False
    TabOrder = 0
  end
  object ButtonStop: TButton
    Left = 1181
    Height = 37
    Top = 58
    Width = 113
    Caption = 'Stop'
    OnClick = ButtonStopClick
    ParentFont = False
    TabOrder = 1
  end
  object Label1: TLabel
    Left = 1181
    Height = 26
    Top = 115
    Width = 48
    Caption = 'Ticks:'
    ParentColor = False
    ParentFont = False
  end
  object ListViewRegisters: TListView
    Left = 10
    Height = 922
    Top = 10
    Width = 374
    Anchors = [akTop, akLeft, akBottom]
    Columns = <    
      item
        Caption = 'Register'
        Width = 120
      end    
      item
        Width = 239
      end>
    Font.Height = -20
    Font.Name = 'Liberation Mono'
    OwnerData = True
    ParentFont = False
    TabOrder = 2
    ViewStyle = vsReport
    OnData = ListViewRegistersData
  end
  object ListViewMemory: TListView
    Left = 394
    Height = 922
    Top = 10
    Width = 778
    Anchors = [akTop, akLeft, akBottom]
    Columns = <    
      item
        Caption = 'Address'
        Width = 120
      end    
      item
        Width = 643
      end>
    Font.Height = -20
    Font.Name = 'Liberation Mono'
    OwnerData = True
    ParentFont = False
    TabOrder = 3
    ViewStyle = vsReport
    OnData = ListViewMemoryData
  end
  object Memo1: TMemo
    Left = 1181
    Height = 344
    Top = 192
    Width = 518
    OnKeyPress = Memo1KeyPress
    ParentFont = False
    ReadOnly = True
    TabOrder = 4
  end
  object Label2: TLabel
    Left = 1181
    Height = 26
    Top = 163
    Width = 73
    Caption = 'Console:'
    ParentColor = False
    ParentFont = False
  end
  object PaintBox1: TPaintBox
    Left = 1181
    Height = 374
    Top = 552
    Width = 518
    OnPaint = PaintBox1Paint
    OnResize = PaintBox1Resize
  end
  object Timer1: TTimer
    Interval = 100
    OnTimer = Timer1Timer
    left = 115
    top = 173
  end
  object TimerDraw: TTimer
    OnTimer = TimerDrawTimer
    left = 104
    top = 304
  end
end