object Form1: TForm1 Left = 353 Height = 353 Top = 194 Width = 535 BorderStyle = bsSingle Caption = 'TDictionaryStringList Demo' ClientHeight = 353 ClientWidth = 535 OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow Position = poScreenCenter LCLVersion = '1.4.0.4' object btnDedupeMemo: TButton Left = 346 Height = 25 Top = 72 Width = 183 Anchors = [akTop, akRight] Caption = 'Dedupe Memo' OnClick = btnDedupeMemoClick TabOrder = 0 end object Memo: TMemo Left = 0 Height = 281 Top = 72 Width = 336 ScrollBars = ssAutoBoth TabOrder = 1 end object lblTime: TLabel Left = 16 Height = 15 Top = 48 Width = 30 Caption = 'Time:' ParentColor = False end object lblLines: TLabel Left = 130 Height = 15 Top = 48 Width = 90 Caption = 'Duplicated Lines:' ParentColor = False end object SpinEdit1: TSpinEdit Left = 8 Height = 23 Top = 8 Width = 94 Increment = 1000 MaxValue = 1000000000 TabOrder = 2 end object btnGenerate: TButton Left = 112 Height = 25 Top = 8 Width = 125 Caption = 'Generate Data' OnClick = btnGenerateClick TabOrder = 3 end object btnDedupeFile: TButton AnchorSideLeft.Control = btnDedupeMemo AnchorSideRight.Control = btnDedupeMemo AnchorSideRight.Side = asrBottom Left = 346 Height = 32 Top = 232 Width = 183 Anchors = [akTop, akLeft, akRight] Caption = 'Create File and Dedupe it' OnClick = btnDedupeFileClick TabOrder = 4 end object Label1: TLabel Left = 346 Height = 64 Top = 168 Width = 182 AutoSize = False Caption = 'Deduplicating from a file is very much faster than using a GUI control. Use the button below to see the whole process.' ParentColor = False WordWrap = True end end