object Form1: TForm1 Left = 203 Top = 116 Width = 537 Height = 420 Caption = 'TJclFileVersionInfo example' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 object Memo1: TMemo Left = 152 Top = 0 Width = 377 Height = 392 Anchors = [akLeft, akTop, akRight, akBottom] Lines.Strings = ( 'Memo1') ReadOnly = True ScrollBars = ssBoth TabOrder = 0 end object DriveComboBox1: TDriveComboBox Left = 0 Top = 0 Width = 145 Height = 19 DirList = DirectoryListBox1 TabOrder = 1 end object DirectoryListBox1: TDirectoryListBox Left = 0 Top = 24 Width = 145 Height = 97 FileList = FileListBox1 ItemHeight = 16 TabOrder = 2 end object FileListBox1: TFileListBox Left = 0 Top = 128 Width = 145 Height = 262 Anchors = [akLeft, akTop, akBottom] ItemHeight = 13 TabOrder = 3 OnChange = FileListBox1Change end end