var
 ReportCurrSelectedRow :integer;

procedure TfrmEqSrchRes.frxDBDataset1CheckEOF(Sender: TObject; var Eof: Boolean);
begin
 with dbgResultItems do
  if(SelectedRows.Count<2)then // выводим весь отчет
   Eof := DataSource.DataSet.Eof
  else
   begin
    inc(ReportCurrSelectedRow);
    Eof := ReportCurrSelectedRow>=SelectedRows.Count;
   end;
end;

procedure TfrmEqSrchRes.frxDBDataset1First(Sender: TObject);
begin
 with dbgResultItems do
  if(SelectedRows.Count<2)then // выводим весь отчет
    DataSource.DataSet.First
  else
   begin
    ReportCurrSelectedRow := 0;
    DataSource.DataSet.Bookmark := SelectedRows[0];
   end;
end;

procedure TfrmEqSrchRes.frxDBDataset1Next(Sender: TObject);
begin
 with dbgResultItems do
  if(SelectedRows.Count>1)then // выводим отчет по выделенным записям
   DataSource.DataSet.Bookmark := SelectedRows[ReportCurrSelectedRow];  // это вообще не работает!
end;