object FormMain: TFormMain Left = 261 Height = 780 Top = 104 Width = 1038 ActiveControl = ButtonIntegerList Caption = 'Template generics demo' ClientHeight = 780 ClientWidth = 1038 DesignTimePPI = 144 OnCreate = FormCreate OnDestroy = FormDestroy LCLVersion = '3.4.0.0' object ButtonIntegerList: TButton Left = 12 Height = 38 Top = 12 Width = 192 Caption = 'TListInteger' TabOrder = 0 OnClick = ButtonIntegerListClick end object ButtonStringList: TButton Left = 12 Height = 38 Top = 60 Width = 192 Caption = 'TListString' TabOrder = 1 OnClick = ButtonStringListClick end object ButtonDictionaryString: TButton Left = 12 Height = 38 Top = 108 Width = 192 Caption = 'TDictionaryString' TabOrder = 2 OnClick = ButtonDictionaryStringClick end object ButtonQueueInteger: TButton Left = 12 Height = 38 Top = 153 Width = 192 Caption = 'TQueueInteger' TabOrder = 3 OnClick = ButtonQueueIntegerClick end object ButtonCharList: TButton Left = 12 Height = 38 Top = 201 Width = 192 Caption = 'TListChar(TString)' TabOrder = 4 OnClick = ButtonCharListClick end object ButtonBenchmarkListString: TButton Left = 12 Height = 36 Top = 684 Width = 192 Anchors = [akLeft, akBottom] Caption = 'TListString' TabOrder = 5 OnClick = ButtonBenchmarkListStringClick end object ButtonListObject: TButton Left = 12 Height = 38 Top = 244 Width = 192 Caption = 'TListObject' TabOrder = 6 OnClick = ButtonListObjectClick end object ButtonBenchmarkDictionary: TButton Left = 12 Height = 38 Top = 636 Width = 192 Anchors = [akLeft, akBottom] Caption = 'TDictionaryStringString' TabOrder = 7 OnClick = ButtonBenchmarkDictionaryClick end object ButtonMatrixInteger: TButton Left = 12 Height = 38 Top = 288 Width = 192 Caption = 'TMatrixInteger' TabOrder = 8 OnClick = ButtonMatrixIntegerClick end object ListViewOutput: TListView Left = 216 Height = 736 Top = 36 Width = 813 Anchors = [akTop, akLeft, akRight, akBottom] Columns = < item Caption = 'Action' Width = 300 end item Caption = 'Value' Width = 498 end> ReadOnly = True TabOrder = 9 ViewStyle = vsReport end object LabelTestName: TLabel Left = 216 Height = 26 Top = 12 Width = 15 Caption = ' ' ParentColor = False end object Label1: TLabel Left = 15 Height = 26 Top = 607 Width = 111 Anchors = [akLeft, akBottom] Caption = 'Benchmarks:' ParentColor = False end object ButtonBenchmarkListPointer: TButton Left = 12 Height = 36 Top = 732 Width = 192 Anchors = [akLeft, akBottom] Caption = 'TListPointer' TabOrder = 10 OnClick = ButtonBenchmarkListPointerClick end object ButtonStreamByte: TButton Left = 15 Height = 38 Top = 336 Width = 192 Caption = 'TMemoryStreamByte' TabOrder = 11 OnClick = ButtonStreamByteClick end end