[sanxpue]

Usa este procedimiento...haber si te sirve,
puedes crear tu reporte en un memo o en un listbox
y lo pasas asi

Procedure PrintStrings(listbox1.Items); //si usas Tlistbox

Procedure PrintStrings(Strings: TStrings);
Var
  Prn: TextFile;
  I : Word;
Begin
  AssignPrn(Prn);
  Try
    Try
      Rewrite(Prn);
      For i := 0 to Strings.Count - 1 do
        writeln(Prn, Strings.Strings[i]);
    Finally
      CloseFile(Prn);
    End;
  Except
    On EInOutError Do
      MessageDlg('Error : Al Imprimir el Texto.', mtError, [mbOk], 0);
  End;
End;