object Form1: TForm1 Left = 212 Top = 93 Width = 243 Height = 302 ActiveControl = Edit1 Caption = 'DDEPDOX1' Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] PixelsPerInch = 96 OnCreate = FormCreate TextHeight = 16 object Edit1: TEdit Left = 8 Top = 48 Width = 185 Height = 24 TabOrder = 0 Text = 'Edit1' end object Edit2: TEdit Left = 8 Top = 80 Width = 185 Height = 24 TabOrder = 1 Text = 'Edit2' end object Edit3: TEdit Left = 8 Top = 112 Width = 185 Height = 24 TabOrder = 2 Text = 'Edit3' end object Edit4: TEdit Left = 8 Top = 144 Width = 185 Height = 24 TabOrder = 3 Text = 'Edit4' end object Edit5: TEdit Left = 8 Top = 176 Width = 185 Height = 24 TabOrder = 4 Text = 'Edit5' end object Edit6: TEdit Left = 8 Top = 208 Width = 185 Height = 24 TabOrder = 5 Text = 'Edit6' end object Edit7: TEdit Left = 8 Top = 240 Width = 185 Height = 24 TabOrder = 6 Text = 'Edit7' end object DdeClientConv1: TDdeClientConv DdeService = 'pdoxdel' DdeTopic = 'dbdemoscustomer' Left = 8 Top = 8 LinkInfo = ( 'Service pdoxdel' 'Topic dbdemoscustomer') end object DdeClientItem1: TDdeClientItem Text = '1351 ' Lines.Strings = ( '1351 ') DdeConv = DdeClientConv1 OnChange = DdeClientItem1Change Left = 200 Top = 48 end object DdeClientItem2: TDdeClientItem Text = 'Sight Diver ' Lines.Strings = ( 'Sight Diver ') DdeConv = DdeClientConv1 OnChange = DdeClientItem1Change Left = 202 Top = 80 end object DdeClientItem3: TDdeClientItem Text = '1 Neptune Lane ' Lines.Strings = ( '1 Neptune Lane ') DdeConv = DdeClientConv1 OnChange = DdeClientItem1Change Left = 200 Top = 112 end object DdeClientItem4: TDdeClientItem Text = ' ' Lines.Strings = ( ' ') DdeConv = DdeClientConv1 OnChange = DdeClientItem1Change Left = 200 Top = 144 end object DdeClientItem5: TDdeClientItem Text = 'Kato Paphos ' Lines.Strings = ( 'Kato Paphos ') DdeConv = DdeClientConv1 OnChange = DdeClientItem1Change Left = 200 Top = 176 end object DdeClientItem6: TDdeClientItem Text = ' ' Lines.Strings = ( ' ') DdeConv = DdeClientConv1 OnChange = DdeClientItem1Change Left = 200 Top = 208 end object DdeClientItem7: TDdeClientItem Text = ' ' Lines.Strings = ( ' ') DdeConv = DdeClientConv1 OnChange = DdeClientItem1Change Left = 200 Top = 240 end end