object CopyForm: TCopyForm Left = 325 Top = 366 BorderIcons = [] BorderStyle = bsDialog Caption = 'Setup' ClientHeight = 151 ClientWidth = 256 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsStayOnTop Position = poScreenCenter PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 3 Top = 7 Width = 108 Height = 13 Alignment = taCenter Caption = 'Setup is copying files...' end object Gauge: TGauge Left = 40 Top = 28 Width = 181 Height = 83 Kind = gkPie BorderStyle = bsNone ForeColor = clAqua BackColor = clNavy Progress = 0 end object AbortButton: TBitBtn Left = 91 Top = 119 Width = 75 Height = 25 TabOrder = 0 OnClick = AbortButtonClick Kind = bkAbort end object FileList: TListBox Left = 172 Top = 119 Width = 77 Height = 25 ItemHeight = 13 Items.Strings = ( 'AquaScap.exe' 'AquaDX.exe' 'AquaLX.exe' 'Control.exe' 'WebSite.exe' 'Enable.exe' 'Disable.exe' 'uInstall.exe' 'AquaScap.Cnt' 'AquaScap.hlp' 'AquaScap.Opt' 'LoFish1.Dat' 'HiFish1.Dat' 'Misc.Dat' 'Init.Dat' 'Themes.Dat' 'License.txt' 'History.txt' 'File_id.diz' 'Order.frm' 'Gallery\Image8.jpg' 'LoFish2.Dat' 'HiFish2.Dat' 'Guide\Chapter1.rtf' 'Guide\Chapter2.rtf' 'Guide\Chapter3.rtf' 'Gallery\Image1.jpg' 'Gallery\Image2.jpg' 'Gallery\Image3.jpg' 'Gallery\Image4.jpg' 'Gallery\Image5.jpg' 'Gallery\Image6.jpg' 'Gallery\Image7.jpg' 'Gallery\Image9.jpg' 'Gallery\Image10.jpg' 'Gallery\Image11.jpg' 'Gallery\Image12.jpg' 'Gallery\Image13.jpg' 'Gallery\Image14.jpg' 'Gallery\Image15.jpg' 'Undocume.txt') TabOrder = 1 Visible = False end object DdeClient: TDdeClientConv DdeService = 'ProgMan' Left = 226 Top = 5 LinkInfo = ( 'Service ProgMan' 'Topic ') end end