object ServerForm: TServerForm Left = 753 Top = 267 BorderStyle = bsDialog Caption = 'Extended File Transfer Server' ClientHeight = 209 ClientWidth = 228 Color = clBtnFace ParentFont = True OldCreateOrder = False Position = poScreenCenter OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object RoPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton Left = 8 Top = 8 Width = 212 Height = 48 Cursor = crHandPoint end object Label1: TLabel Left = 8 Top = 161 Width = 71 Height = 13 Anchors = [akLeft, akBottom] Caption = 'Shared Folder:' end object edSharedFolder: TEdit Left = 8 Top = 180 Width = 187 Height = 21 Anchors = [akLeft, akBottom] TabOrder = 0 Text = 'edSharedFolder' end object btBrowse: TButton Left = 201 Top = 180 Width = 19 Height = 21 Hint = 'Browse for shared folder' Anchors = [akLeft, akBottom] Caption = '...' ParentShowHint = False ShowHint = True TabOrder = 1 OnClick = btBrowseClick end object Memo1: TMemo Left = 8 Top = 70 Width = 212 Height = 89 TabStop = False BevelInner = bvNone BevelOuter = bvNone BorderStyle = bsNone Color = clBtnFace Lines.Strings = ( 'This sample shows how client can ' 'download files exposed by server in ' 'chunks.' 'In order to test this sample please put ' 'some files in following shared folder on the ' 'server side.') ReadOnly = True TabOrder = 2 end object ROMessage: TROBinMessage Envelopes = <> Left = 36 Top = 8 end object ROServer: TROIndyHTTPServer Dispatchers = < item Name = 'ROMessage' Message = ROMessage Enabled = True PathInfo = 'Bin' end> Port = 8099 Left = 8 Top = 8 end end