object Upload: TUpload OldCreateOrder = False PageProducer = AdapterPageProducer Left = 254 Top = 107 Height = 150 Width = 215 object AdapterPageProducer: TAdapterPageProducer HTMLDoc.Strings = ( '' '' '' '' '<#STYLES><#WARNINGS><#SERVERSCRIPT>' '' '') Left = 48 Top = 8 object AdapterForm1: TAdapterForm object AdapterErrorList1: TAdapterErrorList Adapter = Adapter1 end object AdapterFieldGroup1: TAdapterFieldGroup Adapter = Adapter1 object FldAdapterFileField1: TAdapterDisplayField Caption = 'Select a JPG File' FieldName = 'AdapterFileField1' end end object AdapterCommandGroup1: TAdapterCommandGroup DisplayComponent = AdapterFieldGroup1 object CmdUploadAction: TAdapterActionButton ActionName = 'UploadAction' Caption = 'Upload File' end end end end object Adapter1: TAdapter Left = 136 Top = 16 object TAdapterActions object UploadAction: TAdapterAction OnExecute = UploadActionExecute end end object TAdapterFields object AdapterFileField1: TAdapterFileField OnUploadFiles = AdapterFileField1UploadFiles end end end end