ایجاد combobox چند ستون

[ss_58867]

سلام می دونم سوالم تکراریه ولی من درست متوجه کدی که تو لینک بهم آدرس داده بودن نشدم من بانکم sqlوباید دوتافیلد که یکی کد و دیگری اسمه رو تو combobox نشون بده وبعد با انتخاب یک ردیف بتونم کد بدست بیارم خودم کد زیررو نوشتم
procedure Qry_srchstate;
var Qry:TADOQuery;
str:string;
begin
Qry:=TADOQuery.Create(nil);
Qry.Connection:=dm.ADOConnect;
if F_DetS_C.RBtn_all.Checked then
str:= 'select s_locate,S_Family,S_code from t_state '
else if F_DetS_C.RBtn_ShowActive.Checked then
str:='select s_locate,S_Family,S_code from t_state where S_IsActive=1';
try
with Qry do
begin
SQL.Clear;
SQL.Text:=str;
F_DetS_C.Cmbox_srch.Items.Clear;
Open;
if not IsEmpty then
begin
while not eof do
begin
F_DetS_C.Cmbox_srch.Items.Add(QuotedStr(FieldValue s['s_code'])+' '+FieldValues['s_locate']+'...'+FieldValues['s_family']);
next;
end;
end;
end;//end with
finally
Qry.Free;
end;//end try
end;