object Form1: TForm1
  Left = 231
  Top = 203
  Width = 672
  Height = 458
  Caption = 'Test your Profiler (V2.4)'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poDefaultPosOnly
  PrintScale = poNone
  Scaled = False
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 8
    Top = 8
    Width = 649
    Height = 233
  end
  object Bevel4: TBevel
    Left = 16
    Top = 104
    Width = 633
    Height = 1
    Shape = bsFrame
  end
  object Label1: TLabel
    Left = 24
    Top = 48
    Width = 197
    Height = 16
    AutoSize = False
    Caption = 'Procedure with no instructions:'
    Font.Color = clMaroon
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label4: TLabel
    Left = 24
    Top = 80
    Width = 169
    Height = 16
    AutoSize = False
    Caption = 'Loop executed 1000 times:'
    Font.Color = clMaroon
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label5: TLabel
    Left = 24
    Top = 112
    Width = 176
    Height = 16
    AutoSize = False
    Caption = 'Loop executed 10000 times:'
    Font.Color = clMaroon
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label6: TLabel
    Left = 328
    Top = 16
    Width = 70
    Height = 16
    AutoSize = False
    Caption = 'CPU-cycles'
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label7: TLabel
    Left = 416
    Top = 16
    Width = 62
    Height = 16
    AutoSize = False
    Caption = '� seconds'
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object f0: TLabel
    Left = 386
    Top = 48
    Width = 7
    Height = 16
    Alignment = taRightJustify
    Caption = '0'
    Font.Color = clGreen
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object f0d: TLabel
    Left = 456
    Top = 48
    Width = 25
    Height = 16
    Alignment = taRightJustify
    Caption = '0.00'
    Font.Color = clGreen
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object f1000: TLabel
    Left = 386
    Top = 80
    Width = 7
    Height = 16
    Alignment = taRightJustify
    Caption = '0'
    Font.Color = clGreen
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object f10000: TLabel
    Left = 386
    Top = 112
    Width = 7
    Height = 16
    Alignment = taRightJustify
    Caption = '0'
    Font.Color = clGreen
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object f1000d: TLabel
    Left = 456
    Top = 80
    Width = 25
    Height = 16
    Alignment = taRightJustify
    Caption = '0.00'
    Font.Color = clGreen
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object f10000d: TLabel
    Left = 456
    Top = 112
    Width = 25
    Height = 16
    Alignment = taRightJustify
    Caption = '0.00'
    Font.Color = clGreen
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label20: TLabel
    Left = 24
    Top = 176
    Width = 290
    Height = 16
    AutoSize = False
    Caption = 'Checking idle time ability (*)'
    Font.Color = clMaroon
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object prom: TLabel
    Left = 386
    Top = 176
    Width = 7
    Height = 16
    Alignment = taRightJustify
    Caption = '0'
    Font.Color = clGreen
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object promd: TLabel
    Left = 456
    Top = 176
    Width = 25
    Height = 16
    Alignment = taRightJustify
    Caption = '0.00'
    Font.Color = clGreen
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label26: TLabel
    Left = 496
    Top = 16
    Width = 122
    Height = 16
    AutoSize = False
    Caption = 'Name of procedure'
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Bevel2: TBevel
    Left = 16
    Top = 72
    Width = 633
    Height = 1
    Shape = bsFrame
  end
  object Bevel5: TBevel
    Left = 16
    Top = 136
    Width = 633
    Height = 1
    Shape = bsFrame
  end
  object Bevel6: TBevel
    Left = 16
    Top = 168
    Width = 633
    Height = 1
    Shape = bsFrame
  end
  object Bevel8: TBevel
    Left = 16
    Top = 40
    Width = 633
    Height = 1
    Shape = bsFrame
  end
  object Bevel9: TBevel
    Left = 320
    Top = 15
    Width = 1
    Height = 218
    Shape = bsFrame
  end
  object Bevel10: TBevel
    Left = 408
    Top = 15
    Width = 1
    Height = 218
    Shape = bsFrame
  end
  object Bevel11: TBevel
    Left = 488
    Top = 15
    Width = 1
    Height = 218
    Shape = bsFrame
  end
  object Label8: TLabel
    Left = 24
    Top = 144
    Width = 289
    Height = 16
    AutoSize = False
    Caption = 'Nested functions  (time incl. child procedures)'
    Font.Color = clMaroon
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object tmlf: TLabel
    Left = 386
    Top = 144
    Width = 7
    Height = 16
    Alignment = taRightJustify
    Caption = '0'
    Font.Color = clGreen
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object tmlfd: TLabel
    Left = 456
    Top = 144
    Width = 25
    Height = 16
    Alignment = taRightJustify
    Caption = '0.00'
    Font.Color = clGreen
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label9: TLabel
    Left = 496
    Top = 48
    Width = 41
    Height = 13
    AutoSize = False
    Caption = 'Empty'
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object Label12: TLabel
    Left = 496
    Top = 80
    Width = 105
    Height = 15
    AutoSize = False
    Caption = 'FunctionWith1000'
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object Label13: TLabel
    Left = 496
    Top = 112
    Width = 113
    Height = 15
    AutoSize = False
    Caption = 'FunctionWith1000'
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object Label15: TLabel
    Left = 496
    Top = 176
    Width = 89
    Height = 15
    AutoSize = False
    Caption = 'MBox'
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object Label16: TLabel
    Left = 496
    Top = 144
    Width = 145
    Height = 15
    AutoSize = False
    Caption = 'Top-, Mid-, DeepFunction'
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object Label17: TLabel
    Left = 16
    Top = 248
    Width = 287
    Height = 16
    AutoSize = False
    Caption = 'Times are average times for 1 function call !!!'
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object ResLabel: TLabel
    Left = 216
    Top = 104
    Width = 417
    Height = 36
    AutoSize = False
    Caption = 'For results ask your profiler'
    Font.Color = clBlack
    Font.Height = -32
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    Visible = False
  end
  object Label25: TLabel
    Left = 16
    Top = 272
    Width = 633
    Height = 16
    AutoSize = False
    Caption = 
      '(*) Time measured is not very exact because no loop is used for ' +
      'measuring, nobody likes to click a'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 16
    Top = 296
    Width = 633
    Height = 16
    AutoSize = False
    Caption = 
      'a button 200 times. Only the time of the PostMessage is measured' +
      ', the time for the MessageBox'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label18: TLabel
    Left = 16
    Top = 320
    Width = 633
    Height = 16
    AutoSize = False
    Caption = 
      'call is not included because the reaction time varies. While wai' +
      'ting for the MessageBox, the pro-'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label19: TLabel
    Left = 16
    Top = 344
    Width = 633
    Height = 16
    AutoSize = False
    Caption = 
      'cedure UserMessage ( simple loop ) is executed. A good profiler ' +
      'should neither measure the'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label21: TLabel
    Left = 16
    Top = 368
    Width = 633
    Height = 16
    AutoSize = False
    Caption = 
      'idle time while Windows processes MessageBox nor include the tim' +
      'e of UserMessage as child time.'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Bevel3: TBevel
    Left = 15
    Top = 200
    Width = 633
    Height = 1
    Shape = bsFrame
  end
  object Label3: TLabel
    Left = 24
    Top = 208
    Width = 290
    Height = 16
    AutoSize = False
    Caption = 'Processing while waiting for MessageBox'
    Font.Color = clMaroon
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object prouse: TLabel
    Left = 386
    Top = 208
    Width = 7
    Height = 16
    Alignment = taRightJustify
    Caption = '0'
    Font.Color = clGreen
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object proused: TLabel
    Left = 456
    Top = 208
    Width = 25
    Height = 16
    Alignment = taRightJustify
    Caption = '0.00'
    Font.Color = clGreen
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label14: TLabel
    Left = 496
    Top = 208
    Width = 89
    Height = 15
    AutoSize = False
    Caption = 'UserMessage'
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object Button1: TButton
    Left = 8
    Top = 392
    Width = 145
    Height = 33
    Caption = 'Start processing'
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    OnClick = StartItAll
  end
end