procedure TMainForm.dsCustomerDataChange(Sender: TObject; Field: TField);
begin
═════with IbCustomer.Items do
═════begin
══════════Clear;
══════════Add(VarToStr(qryCustomer[ ' CustNo']));
══════════Add(VarToStr(qryCustomer[ ' Company']));
══════════Add(VarToStr(qryCustomer[ ' Addrl']));
══════════Add(VarToStr(qryCustomer[ ' City']));
══════════Add(VarToStr(qryCustomer[ ' State']));
══════════Add(VarToStr(qryCustomer[ ' Zip']));
══════════Add(VarToStr(qryCustomer[ ' Country']));
══════════Add(VarToStr(qryCustomer[ ' Phone']));
══════════Add(VarToStr(qryCustomer[ ' Contact']));
═════end;
end;