object formPromotion: TformPromotion Left = 423 Height = 86 Top = 233 Width = 287 Caption = 'Promote to...' ClientHeight = 86 ClientWidth = 287 OnShow = FormShow LCLVersion = '0.9.31' object labelSelectPiece: TLabel Left = 83 Height = 19 Top = 0 Width = 106 Caption = 'Select piece:' Font.Height = -15 Font.Name = 'Sans' Font.Style = [fsBold] ParentColor = False ParentFont = False end object imageRook: TImage Left = 0 Height = 70 Top = 16 Width = 72 OnClick = imageRookClick end object imageKnight: TImage Left = 72 Height = 70 Top = 16 Width = 72 OnClick = imageKnightClick end object imageBishop: TImage Left = 144 Height = 70 Top = 16 Width = 72 OnClick = imageBishopClick end object imageQueen: TImage Left = 216 Height = 70 Top = 16 Width = 72 OnClick = imageQueenClick end end