procedure Get_DB_Values; // Auslesen Kundennamen aus DB
var i, j, k :Integer;
begin
   ...
   with D_DataModule.DataSet do
   begin
       SelectSQL.Clear;
       SelectSQL.Text := 'select upper(f.fname), f.fa_bez, f.faid from FIRMA f where f.haendler = ''N'' and f.stat <> ''D'' order by 1 asc';
       Open;
   end;

   while not D_DataModule.DataSet.Eof do
   begin
       reg.customer[reg.Ac_ID].ID := D_DataModule.DataSet.FieldByName('FAID').Value;
       reg.Customer[reg.Ac_ID].Company := D_DataModule.DataSet.FieldByName('UPPER').Value;
       reg.Customer[reg.Ac_ID].CompanyType := D_DataModule.DataSet.FieldByName('FA_BEZ').Value;
       D_DataModule.DataSet.Next;
      ...
   end;
   ...
   D_DataModule.DataSet.Close;