Delphi中Combobox控件下拉列表选择一个值后，对应Edit控件显示相应关联值

选择工单号（comboBox控件）“20140623”时
产品名称（edit控件）自动显示对于关联值为“充电器”
选择工单号（comboBox控件）“20140624”时
产品名称（edit控件）自动显示对于关联值为“显示器”
MSSQL数据库已存aa表a1（此列内容为唯一性）与a2列
数据如下：
a1            a2
20140623     充电器
20140624     显示器