object ThreadSortForm: TThreadSortForm Left = 199 Top = 114 BorderStyle = bsSingle Caption = 'Thread Sorting Demo' ClientHeight = 295 ClientWidth = 563 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Bevel1: TBevel Left = 8 Top = 24 Width = 177 Height = 233 end object Bevel3: TBevel Left = 376 Top = 24 Width = 177 Height = 233 end object Bevel2: TBevel Left = 192 Top = 24 Width = 177 Height = 233 end object BubbleSortBox: TPaintBox Left = 8 Top = 24 Width = 177 Height = 233 OnPaint = BubbleSortBoxPaint end object SelectionSortBox: TPaintBox Left = 192 Top = 24 Width = 177 Height = 233 OnPaint = SelectionSortBoxPaint end object QuickSortBox: TPaintBox Left = 376 Top = 24 Width = 177 Height = 233 OnPaint = QuickSortBoxPaint end object Label1: TLabel Left = 8 Top = 8 Width = 55 Height = 13 Caption = 'Bubble Sort' end object Label2: TLabel Left = 192 Top = 8 Width = 66 Height = 13 Caption = 'Selection Sort' end object Label3: TLabel Left = 376 Top = 8 Width = 50 Height = 13 Caption = 'Quick Sort' end object StartBtn: TButton Left = 240 Top = 264 Width = 75 Height = 25 Caption = 'Start Sorting' TabOrder = 0 OnClick = StartBtnClick end end