procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
Case RadioGroup1.ItemIndex of
0:begin
DblookUpCombobox1.ListField:='Company';
DblookUpCombobox1.KeyField:='Company';
end;
1:begin
DblookUpCombobox1.ListField:='addr1';
DblookUpCombobox1.KeyField:='addr1';
end;
end;
end;