1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

for i :=0 to sre.Count-1 do
begin
  query1.SQL.Text:='SELECT * FROM '+abe1+' WHERE KUNR="'+sre[i]+[d elphi]'" AND EXPORT_E="" AND RDATUM>="'+dmin+'" AND RDATUM<="'+dmax+'"';
  query1.Open;
  while not query1.eof do
  begin
    rechn.Add(query1.fieldbyname('RENR').value);
    if j>0 then
    begin
      if rechn.ValueFromIndex[j]<>rechn.ValueFromIndex[j-1] then
      begin
        checklistbox1.Items.Add(query1.FieldByName('KUNR').Value+', '+query1.FieldByName('RENR').value+', '+query1.fieldbyname('KUNL').value+', '+datetostr(query1.fieldbyname('RDATUM').Value));
        checklistbox1.Checked[j]:=true;
      end;
    end
    else
    begin
      checklistbox1.Items.Add(query1.FieldByName('KUNR').Value+', '+query1.FieldByName('RENR').value+', '+query1.fieldbyname('KUNL').value+', '+datetostr(query1.fieldbyname('RDATUM').Value));
      checklistbox1.Checked[j]:=true;
    end;
    j:=j+1;
    query1.Next;
  end;
query1.First;
end;