怎么取出cxLookupComboBox多列的值

如何取出cxLookupComboBox多列的值.
A B C D
1 2 2 2
2 2 3 3
3 2 1 0
在下拉列表中选字段A 的值2时,希望B的2值自动填到EDIT1.TEXT中,C的值3自动填到EDIT2.TEXT中,D的值3自动填到EDIT3.TEXT中.请叫了.

[解决办法]

//注：我在数据表中加了一个主键

Delphi(Pascal) code

procedure TForm1.Button1Click(Sender: TObject);begin  adoQuery1.Filter:='ID='+IntToStr(cxLookupComboBox1.EditValue);  adoQuery1.Filtered:=True;  Edit1.Text:=adoQuery1.FieldByName('B').AsString;  Edit2.Text:=adoQuery1.FieldByName('C').AsString;  adoQuery1.Filtered:=False;end;procedure TForm1.FormShow(Sender: TObject);begin with adoquery1 do  begin    close;    sql.Clear;    sql.Text:='select * from test';    open;  end;end;