liste1.LoadFromFile('c:\temp\update0a.txt');
  ADOQuery1.Close;
  ADOQuery1.sql.Text:='select idebre from tabbre,tabpay '+
                      'where tabbre.idepay=tabpay.idepay '+
                      'and tabbre.numdlv=:_numdlv ';
  for i:=0 to liste1.Count-1 do begin
    ADOQuery1.parameters.parambyname('_numdlv').value:=liste1[i];
    (* Bastellösung:
    ADOQuery1.sql.Text:='select idebre from tabbre,tabpay '+
                        'where tabbre.idepay=tabpay.idepay '+
                        'and tabbre.numdlv='''+liste1[i]+'''';
                        *)
    ADOQuery1.open ;
    if not ADOQuery1.eof then begin
      inc(cnt1);
      repeat
        liste2.add(ADOQuery1.fieldbyname('idebre').asstring);
        ADOQuery1.next;
      until ADOQuery1.eof;
    end
    else begin
      inc(cnt2,1);
      liste2.Add(liste1[i]+' nicht gefunden!');
    end;

  end;
  ADOQuery1.close;