周立功的DP-51+实验板　应用程序（原代码）

				object Form1: TForm1
				  Left = 275
				  Top = 203
				  Width = 514
				  Height = 268
				  Caption = 'USB--I2C测试程序(For C++ Builder 5.0)'
				  Color = clBtnFace
				  Font.Charset = GB2312_CHARSET
				  Font.Color = clWindowText
				  Font.Height = -12
				  Font.Name = '宋体'
				  Font.Style = []
				  OldCreateOrder = False
				  OnCreate = FormCreate
				  PixelsPerInch = 96
				  TextHeight = 12
				  object BtnExit: TButton
				    Left = 432
				    Top = 208
				    Width = 57
				    Height = 25
				    Caption = '退出'
				    TabOrder = 0
				    OnClick = BtnExitClick
				  end
				  object GroupBox1: TGroupBox
				    Left = 8
				    Top = 8
				    Width = 489
				    Height = 185
				    Caption = '24WC系列串行E2PROM读写测试'
				    TabOrder = 1
				    object Label1: TLabel
				      Left = 16
				      Top = 32
				      Width = 48
				      Height = 12
				      Caption = '选择型号'
				    end
				    object Label2: TLabel
				      Left = 16
				      Top = 70
				      Width = 48
				      Height = 12
				      Caption = '起始地址'
				    end
				    object Label3: TLabel
				      Left = 208
				      Top = 70
				      Width = 48
				      Height = 12
				      Caption = '数据长度'
				    end
				    object Label4: TLabel
				      Left = 16
				      Top = 98
				      Width = 48
				      Height = 12
				      Caption = '下传数据'
				    end
				    object Label5: TLabel
				      Left = 16
				      Top = 125
				      Width = 48
				      Height = 12
				      Caption = '起始地址'
				    end
				    object Label6: TLabel
				      Left = 208
				      Top = 125
				      Width = 48
				      Height = 12
				      Caption = '数据长度'
				    end
				    object Label7: TLabel
				      Left = 16
				      Top = 154
				      Width = 48
				      Height = 12
				      Caption = '接收数据'
				    end
				    object BtnSend: TButton
				      Left = 424
				      Top = 96
				      Width = 49
				      Height = 25
				      Caption = '下传'
				      TabOrder = 0
				      OnClick = BtnSendClick
				    end
				    object BtnRcv: TButton
				      Left = 424
				      Top = 144
				      Width = 49
				      Height = 25
				      Caption = '接收'
				      TabOrder = 1
				      OnClick = BtnRcvClick
				    end
				    object cbSelectChip: TComboBox
				      Left = 72
				      Top = 28
				      Width = 169
				      Height = 20
				      ItemHeight = 12
				      TabOrder = 2
				      Text = '24WC01'
				      OnChange = cbSelectChipChange
				      Items.Strings = (
				        '24WC01'
				        '24WC02'
				        '24WC08'
				        '24WC16'
				        '24WC32'
				        '24WC64')
				    end
				    object edSendAdr: TEdit
				      Left = 72
				      Top = 66
				      Width = 129
				      Height = 20
				      TabOrder = 3
				      OnKeyPress = edSendAdrKeyPress
				    end
				    object edSendLen: TEdit
				      Left = 264
				      Top = 66
				      Width = 137
				      Height = 20
				      TabOrder = 4
				      OnKeyPress = edSendLenKeyPress
				    end
				    object edSendData: TEdit
				      Left = 72
				      Top = 94
				      Width = 329
				      Height = 20
				      TabOrder = 5
				    end
				    object edRcvAdr: TEdit
				      Left = 72
				      Top = 122
				      Width = 129
				      Height = 20
				      TabOrder = 6
				      OnKeyPress = edRcvAdrKeyPress
				    end
				    object edRcvLen: TEdit
				      Left = 264
				      Top = 122
				      Width = 137
				      Height = 20
				      TabOrder = 7
				      OnKeyPress = edRcvLenKeyPress
				    end
				    object edRcvData: TEdit
				      Left = 72
				      Top = 150
				      Width = 329
				      Height = 20
				      TabOrder = 8
				    end
				  end
				end