IBQuery1.SQL.Add('Select '+t+', Count(NDURATION) as nall From AMA');
   IBQuery1.SQL.Add(' Where (SSOURCE=1)');
   IBQuery1.SQL.Add(' and (dbegdate between :date and :date1) ');
   IBQuery1.ParamByName('date').asstring:=ds1;
   IBQuery1.ParamByName('date1').asstring:=ds2;
   IBQuery1.SQL.Add(' AND (');
   ...
      IBQuery1.SQL.Add(' OR ');
   ...
   IBQuery1.SQL.Add('  ( SINTRANC=:sint ');
   IBQuery1.ParamByName('sint').asstring:=trg;
   ...
     IBQuery1.SQL.Add('AND (');
     for k:=fd to ld do
      if k<ld then
       begin
        IBQuery1.SQL.Add(' (STEL_A Like "'+stel+IntToStr(k)+'%") OR');
        IBQuery2.SQL.Add(' (STEL_A Like "'+stel+IntToStr(k)+'%") OR');
       end
      else
       begin
        IBQuery1.SQL.Add(' (STEL_A Like "'+stel+IntToStr(k)+'%"))  )');
        IBQuery2.SQL.Add(' (STEL_A Like "'+stel+IntToStr(k)+'%"))  )');
       end;
   if (i=Memo1.Lines.Count- 1 ) then
     begin
      IBQuery1.SQL.Add(') ');
      IBQuery2.SQL.Add(') ');
     end;
     end;
  end;
IBQuery1.SQL.Add('group by '+t);
IBQuery1.Open;

  Select SINTRANC, Count(NDURATION) as nall From AMA
 Where (SSOURCE= 1 )
 and (dbegdate between ? and ?) 
 AND (
  ( SINTRANC=? 
AND (
 (STEL_A Like "4737911%") OR
 (STEL_A Like "4737912%") OR
 (STEL_A Like "4737913%") OR
 (STEL_A Like "4737914%") OR
 (STEL_A Like "4737915%") OR
 (STEL_A Like "4737916%"))  )
 OR 
  ( SINTRANC=? 
AND (
 (STEL_A Like "473792%") OR
 (STEL_A Like "473793%") OR
 (STEL_A Like "473794%") OR
 (STEL_A Like "473795%"))  )
) 
group by SINTRANC

Select 
  case 
    when STEL_A between '4737911' and '4737916' then ''4737911- 4737916 '
    when STEL_A between '4737917' and '4737960' then ''4737917-4737960'
    else 'Прочие'
  end Variants, 
  Count(NDURATION) nal
from AMA

...
...

group by
 case 
   when STEL_A between '4737911' and '4737916' then ''4737911- 4737916 '
   when STEL_A between '4737917' and '4737960' then ''4737917-4737960'
   else 'Прочие'
 end

--------------------