цикл while

with QExpL do
   begin
   Close;
   Connection:=DM1.Conn1;
   with SQL do
   begin
   Clear;
   Add(' SELECT RS, FIO, CAST(IDCODE AS varchar) AS IDCODE ');
   Add(' FROM (SELECT TOP (100) PERCENT H.Num AS RS, ');
   Add(' CASE WHEN L.Name IS NULL THEN C.Name ELSE L.Name END AS FIO, ');
   Add(' L.IPN AS IDCODE ');
   Add(' FROM dbo._archHistoria AS H INNER JOIN ');
   Add('      dbo._archLgots AS L ON H.Num = L.Num ');
   Add(' AND H.Date1 = L.Date1 INNER JOIN ');
   Add('      dbo.Clients AS C ON H.Num = C.Num ');
   Add(' WHERE (L.Date1 = '+IntToStr(LDate)+')');
   Add(') AS K ');
   List:=TStringList.Create;
  try
    
    if cxCheckComboBox1.Value<>0 then
    begin
    NumItems := cxCheckComboBox1.Properties.Items.Count;
    for i := 0 to NumItems - 1 do
    begin
      CurrItem := cxCheckComboBox1.Properties.Items[i];
      if cxCheckComboBox1.States[i] = cbsChecked then
      if CurrItem.Tag<>0 then List.Add(IntToStr(CurrItem.Tag));
    end;  // for
    if List.Count>0 then
    begin
    Add(' WHERE (RS IN ');
    Add(' (SELECT L1.Num ');
    Add(' FROM dbo._archLgots AS L1 LEFT OUTER JOIN ');
    Add('      dbo.Clients AS C1 ON L1.Num = C1.Num INNER JOIN ');
    Add('      dbo.Areas A1 ON C1.Area=A1.Num ');
    Add(' WHERE (L1.Date1 = '+IntToStr(LDate)+') AND ');
    for j := 0 to List.Count-1  do
     begin
      Add(' (A1.id ='+List[j]+')');
      k:=j;
      while j<List.Count-1 do
        begin
        Add(' OR ');
        Inc(k);
        end;  // while k<List.Count-1
     end;  //for j := 0 to List.Count - 1 do
      Add('))');
    end; //if List.Count>0 then
    sMemo1.Lines.Clear;
    sMemo1.Lines.Add(QExpL.SQL.Text);
    end;
  finally
    List.Free;
  end;   // try
    Add(' ORDER BY RS ');
  end;
  Open;
  end;  // with QExpL

   if List.Count>0 then
    begin
    Add(' WHERE (RS IN ');
    Add(' (SELECT L1.Num ');
    Add(' FROM dbo._archLgots AS L1 LEFT OUTER JOIN ');
    Add('      dbo.Clients AS C1 ON L1.Num = C1.Num INNER JOIN ');
    Add('      dbo.Areas A1 ON C1.Area=A1.Num ');
    Add(' WHERE (L1.Date1 = '+IntToStr(LDate)+') AND ');
    k:=1;
    Add(' (A1.id ='+List[0]+')');
    while k < List.Count do
    begin
       Inc(k);
       Add(' OR ');
       Add(' (A1.id ='+List[k-1]+')');
    end;  // while k<List.Count
    Add('))');
    end; //if List.Count>0 then