object FirstSampleServerMainForm: TFirstSampleServerMainForm Left = 290 Top = 103 AutoScroll = False BorderIcons = [biSystemMenu] Caption = 'FirstSample Server' ClientHeight = 470 ClientWidth = 245 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False OnCreate = FormCreate OnDestroy = FormDestroy PixelsPerInch = 96 TextHeight = 13 object ROPoweredByRemObjectsButton: TROPoweredByRemObjectsButton Left = 16 Top = 0 Width = 212 Height = 48 Cursor = crHandPoint end object ValueListEditor: TValueListEditor Left = 0 Top = 47 Width = 241 Height = 316 Align = alCustom DisplayOptions = [doColumnTitles, doAutoColResize] KeyOptions = [keyEdit, keyAdd, keyDelete, keyUnique] Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected, goColSizing, goEditing, goAlwaysShowEditor, goThumbTracking] Strings.Strings = ( 'Fred=Fred Smith' 'Tom=Tom Jones' 'Carla=Carla Simon' 'singer=Carla Simon' 'Maria=Maria Anders' 'Antonio=Antonio Moreno' 'Hanna=Hanna Moos' 'Victoria=Victoria Ashworth' 'Yang=Yang Wang' 'Pedro=Pedro Afonso' 'Sven=Sven Ottlieb' 'TJ=Tom Jones' 'cs=Carla Simon') TabOrder = 0 TitleCaptions.Strings = ( 'Nickname' 'Full Name') OnStringsChange = ValueListEditorStringsChange OnValidate = ValueListEditorValidate ColWidths = ( 145 146) end object Memo1: TMemo Left = 0 Top = 395 Width = 245 Height = 75 Align = alBottom Font.Charset = ANSI_CHARSET Font.Color = clNavy Font.Height = -15 Font.Name = 'Arial' Font.Style = [fsItalic] Lines.Strings = ( 'Note: for the sake of simplicity, any ' 'changes made to the list above are ' 'not saved but, of course, adding ' 'persistence is very easy.') ParentColor = True ParentFont = False ReadOnly = True TabOrder = 1 end object AddButton: TButton Left = 32 Top = 369 Width = 75 Height = 22 Anchors = [akLeft, akBottom] Caption = 'Add' TabOrder = 2 OnClick = AddButtonClick end object DeleteButton: TButton Left = 128 Top = 369 Width = 75 Height = 22 Anchors = [akLeft, akBottom] Caption = 'Delete' TabOrder = 3 OnClick = DeleteButtonClick end object ROServer: TROIndyHTTPServer Active = True Dispatchers = < item Name = 'BinMessage' Message = BinMessage Enabled = True PathInfo = '/BIN' end> Port = 8099 Top = 304 end object BinMessage: TROBinMessage Left = 40 Top = 304 end end