object shmess: Tshmess Left = 80 Top = 105 BorderIcons = [biMinimize, biMaximize] BorderStyle = bsDialog Caption = 'Installing...' ClientHeight = 139 ClientWidth = 347 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 16 Top = 12 Width = 312 Height = 16 Caption = 'Please click on the "Extract" button in the next window' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label2: TLabel Left = 136 Top = 32 Width = 73 Height = 16 Caption = 'to continue...' Font.Color = clBlack Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label3: TLabel Left = 36 Top = 56 Width = 259 Height = 13 Caption = '(Please ensure that the "drive" selection in this window' end object Label4: TLabel Left = 32 Top = 72 Width = 270 Height = 13 Caption = 'corresponds with the drive you have selected to install to)' end object Button1: TButton Left = 120 Top = 108 Width = 113 Height = 25 Caption = 'OK' TabOrder = 0 OnClick = Button1Click end end