object Form1: TForm1 Left = 201 Top = 125 Width = 435 Height = 335 Caption = 'Touch for Windows' Font.Color = clWindowText Font.Height = -17 Font.Name = 'System' Font.Style = [] PixelsPerInch = 120 TextHeight = 20 object Label1: TLabel Left = 16 Top = 184 Width = 389 Height = 20 Caption = 'Label1' end object Label2: TLabel Left = 227 Top = 224 Width = 38 Height = 20 Caption = 'Date' end object Label3: TLabel Left = 227 Top = 264 Width = 38 Height = 20 Caption = 'Time' end object DirectoryListBox1: TDirectoryListBox Left = 16 Top = 40 Width = 393 Height = 129 ItemHeight = 20 TabOrder = 0 end object DriveComboBox1: TDriveComboBox Left = 16 Top = 8 Width = 393 Height = 26 DirList = DirectoryListBox1 TabOrder = 1 end object MaskEdit1: TMaskEdit Left = 272 Top = 224 Width = 137 Height = 29 EditMask = '!99/99/00;1;_' MaxLength = 8 TabOrder = 2 Text = ' / / ' end object MaskEdit2: TMaskEdit Left = 272 Top = 264 Width = 137 Height = 29 EditMask = '!90:00:00>LL;1;_' MaxLength = 10 TabOrder = 3 Text = ' : : ' end object BitBtn1: TBitBtn Left = 16 Top = 224 Width = 97 Height = 57 Caption = 'BitBtn1' TabOrder = 4 OnClick = RunTouchClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333FFFFF3333333333000003333333333F777773FF333333008877700 33333337733FFF773F33330887000777033333733F777FFF73F330880FAFAF07 703337F37733377FF7F33080F00000F07033373733777337F73F087F00A2200F 77037F3737333737FF7F080A0A2A220A07037F737F3333737F7F0F0F0AAAA20F 07037F737F3333737F7F0F0A0FAA2A0A08037F737FF33373737F0F7F00FFA00F 780373F737FFF737F3733080F00000F0803337F73377733737F330F80FAFAF08 8033373F773337733733330F8700078803333373FF77733F733333300FFF8800 3333333773FFFF773333333330000033333333333777773333330000} NumGlyphs = 2 end object BitBtn2: TBitBtn Left = 120 Top = 224 Width = 97 Height = 57 TabOrder = 5 OnClick = BitBtn2Click Kind = bkHelp end object FileIterator1: TFileIterator OnFoundFile = FileIterator1FoundFile UseFileList = False UseDirList = False Left = 392 Top = 176 end end