Exemplo: Este exemplo faz o loop em uma query e imprime cada linha já previamente definida

procedure Tform1.RvSystem1(Sender: TObject);
  var report : TbaseReport;
  var entreLinhas,linha:real;

begin
  report := Sender as TbaseReport;
  // imprime uma linha horizontal
  Report.Ellipse(0.5, 0.5, 8.0, 0.5);
  // define fonte e color do texto
  Report.SetFont('Arial', 12);
  Report.FontColor := clGreen;
  Report.Bold := true;
  Report.PrintXY(0.7,0.2, 'Impressão apenas com RvSystem’)
  // altera fonte
  Report.Bold := false;
  Report.SetFont('Courier New', 12);
  linha := 1.0;
  entreLinhas := 0.2;
  While not Qry_EscrLivroRave.Eof do
  begin
    Report.PrintXY( 0.75 ,linha,Qry_EscrLivroRaveLinha.asstring);
    if length (Qry_EscrLivroRaveLINHANEGRITO.asstring)>0 then
    begin
      // imprime uma parte da linha em negrito
      Report.SetFont('Courier New', 12);
      Report.Bold := true;
      Report.PrintXY(0.75 ,linha,Qry_EscrLivroRaveLINHANEGRITO.asstring);
      // volta para a fonte normal
      Report.SetFont('Courier New', 12);
      Report.Bold := false;
    end;
    linha := linha + entreLinhas;
    Qry_EscrLivroRave.next;
   end;
end;

Basta este código para você imprimir linha a linha utilizando os recursos gráficos do Rave.