object Form1: TForm1
  Left = 258
  Top = 171
  Width = 672
  Height = 458
  Caption = 'Test your Profiler (V2.5)'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poDefaultPosOnly
  PrintScale = poNone
  Scaled = False
  PixelsPerInch = 96
  TextHeight = 13
  object f1000s: TLabel
    Left = 386
    Top = 120
    Width = 7
    Height = 15
    Alignment = taRightJustify
    Caption = '0'
    Font.Color = clNavy
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object f1000ds: TLabel
    Left = 457
    Top = 120
    Width = 24
    Height = 15
    Alignment = taRightJustify
    Caption = '0.00'
    Font.Color = clNavy
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  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 = clBlack
    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 100 times:'
    Font.Color = clBlack
    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 1000 times:'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label6: TLabel
    Left = 328
    Top = 16
    Width = 73
    Height = 16
    Alignment = taCenter
    AutoSize = False
    Caption = 'CPU-cycles'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label7: TLabel
    Left = 416
    Top = 16
    Width = 65
    Height = 16
    Alignment = taCenter
    AutoSize = False
    Caption = 'Time'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object f0: TLabel
    Left = 386
    Top = 42
    Width = 7
    Height = 15
    Alignment = taRightJustify
    Caption = '0'
    Font.Color = clMaroon
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object f0d: TLabel
    Left = 457
    Top = 42
    Width = 24
    Height = 15
    Alignment = taRightJustify
    Caption = '0.00'
    Font.Color = clMaroon
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object f100: TLabel
    Left = 386
    Top = 74
    Width = 7
    Height = 15
    Alignment = taRightJustify
    Caption = '0'
    Font.Color = clMaroon
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object f1000: TLabel
    Left = 386
    Top = 106
    Width = 7
    Height = 15
    Alignment = taRightJustify
    Caption = '0'
    Font.Color = clMaroon
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object f100d: TLabel
    Left = 457
    Top = 74
    Width = 24
    Height = 15
    Alignment = taRightJustify
    Caption = '0.00'
    Font.Color = clMaroon
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object f1000d: TLabel
    Left = 457
    Top = 106
    Width = 24
    Height = 15
    Alignment = taRightJustify
    Caption = '0.00'
    Font.Color = clMaroon
    Font.Height = -12
    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 = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object prom: TLabel
    Left = 386
    Top = 177
    Width = 7
    Height = 15
    Alignment = taRightJustify
    Caption = '0'
    Font.Color = clMaroon
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object promd: TLabel
    Left = 457
    Top = 177
    Width = 24
    Height = 15
    Alignment = taRightJustify
    Caption = '0.00'
    Font.Color = clMaroon
    Font.Height = -12
    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 = clBlack
    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 = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object tmlf: TLabel
    Left = 386
    Top = 138
    Width = 7
    Height = 15
    Alignment = taRightJustify
    Caption = '0'
    Font.Color = clMaroon
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object tmlfd: TLabel
    Left = 457
    Top = 138
    Width = 24
    Height = 15
    Alignment = taRightJustify
    Caption = '0.00'
    Font.Color = clMaroon
    Font.Height = -12
    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 = 'FunctionWith100'
    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 = 8
    Top = 248
    Width = 193
    Height = 16
    AutoSize = False
    Caption = 'Times/cycles for 1 function call !!!'
    Font.Color = clMaroon
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object ResLabel: TLabel
    Left = 104
    Top = 104
    Width = 417
    Height = 36
    Alignment = taCenter
    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 = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object prouse: TLabel
    Left = 386
    Top = 209
    Width = 7
    Height = 15
    Alignment = taRightJustify
    Caption = '0'
    Font.Color = clMaroon
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object proused: TLabel
    Left = 457
    Top = 209
    Width = 24
    Height = 15
    Alignment = taRightJustify
    Caption = '0.00'
    Font.Color = clMaroon
    Font.Height = -12
    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 Label10: TLabel
    Left = 208
    Top = 248
    Width = 217
    Height = 16
    AutoSize = False
    Caption = 'Times/cycles for 200 function calls !!!'
    Font.Color = clNavy
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label11: TLabel
    Left = 432
    Top = 248
    Width = 225
    Height = 16
    AutoSize = False
    Caption = 'Times and cycles are average values !!!'
    Font.Color = clPurple
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object f0s: TLabel
    Left = 386
    Top = 56
    Width = 7
    Height = 15
    Alignment = taRightJustify
    Caption = '0'
    Font.Color = clNavy
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object f100s: TLabel
    Left = 386
    Top = 88
    Width = 7
    Height = 15
    Alignment = taRightJustify
    Caption = '0'
    Font.Color = clNavy
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object tmlfs: TLabel
    Left = 386
    Top = 152
    Width = 7
    Height = 15
    Alignment = taRightJustify
    Caption = '0'
    Font.Color = clNavy
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object f0ds: TLabel
    Left = 457
    Top = 56
    Width = 24
    Height = 15
    Alignment = taRightJustify
    Caption = '0.00'
    Font.Color = clNavy
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object f100ds: TLabel
    Left = 457
    Top = 88
    Width = 24
    Height = 15
    Alignment = taRightJustify
    Caption = '0.00'
    Font.Color = clNavy
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object tmlfds: TLabel
    Left = 457
    Top = 152
    Width = 24
    Height = 15
    Alignment = taRightJustify
    Caption = '0.00'
    Font.Color = clNavy
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Warnlab: TLabel
    Left = 192
    Top = 400
    Width = 393
    Height = 18
    Alignment = taCenter
    AutoSize = False
    Caption = 'Define the compiler switch PROFILE please !!!'
    Font.Color = clWindowText
    Font.Height = 18
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    Visible = 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