//формирование основных данных
  IBXQMain.SQL.Clear;      
  IBXQMain.SQL.Add('Select courses.wr,  count(*) from courses inner join results on results.courses_id=courses.id where adddt >= :dt1  and  adddt<=:dt2 '); 
  if (IBXQMethods.FieldByName('id').value>0) then IBXQMain.SQL.Add( ' and courses.method_id=' + inttostr(IBXQMethods.FieldByName('id').value)  );
  if (IBXQAnalits.FieldByName('id').value>0) then IBXQMain.SQL.Add( ' and results.analit_id=' + inttostr(IBXQAnalits.FieldByName('id').value)  );      
  IBXQMain.SQL.Add(' group by courses.wr ') ;
      
  IBXQMain.Params[0].DataType:=(Date);
  IBXQMain.Params[0].Value:=Dt1.date;      
  IBXQMain.Params[1].DataType:=Date;
  IBXQMain.Params[1].Value:=Dt2.date;          
//  ShowMessage(IBXQMain.SQL.Text);