Fórum Relatório RaveReport + Importar dados arquivo TXT (Delphi 7) #595959

Olá!

Sou nova no fórum. Há dias estou pesquisando sobre o assunto e não consigo encontrar solução.
Criei um sistema simples para importar dados de um arquivo TXT e gerar um relatório em PDF. Quando o arquivo possuir mais de uma linha, o PDF deve gerar mais de uma página. Porém ele gerar um arquivo PDF para cada linha ao importar os arquivos com mais de uma linha.

Estou utilizando o Delphi 7 e o RaveReport. Alguém poderia me auxiliar?
Abaixo segue o código do meu programa:



unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, jpeg, qrpdffilt, RpDefine, RpRave, RpCon,
RpRender, RpRenderPDF, RpBase, RpSystem, ComCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
RvProject1: TRvProject;
RvRenderPDF1: TRvRenderPDF;
RvSystem1: TRvSystem;
CheckBox1: TCheckBox;
Label1: TLabel;
Memo1: TMemo;
procedure Button3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);



private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

//Variáveis de importação dos dados para fatura
frase1:string;
frase2:string;
frase3:string;
frase4:string;
frase5:string;
frase6:string;
totalfatura:string;
competencia1:string;
competencia2:string;
dados1:string;
dados2:string;
extenso:string;
emissao1:string;
emissao2:string;
emissao3:string;
vencimento1:string;
vencimento2:string;
vencimento3:string;
imposto:string;
nome:string;
rua:string;
cidade:string;
cep1:string;
cep2:string;
bairro:string;
codigo:string;
impostodesc:string;


implementation

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);
begin
Close();
end;

procedure TForm1.Button1Click(Sender: TObject);

var

arquivo: TextFile;
linha: string;

begin

AssignFile(arquivo,''C:\\\\\\\\Unimed\\\\\\\\Faturas\\\\\\\\Arquivo\\\\\\\\FP0610Y.LST'');
Reset(arquivo);

While not Eof(arquivo) do

begin

Readln(arquivo,linha);

frase1 := copy(linha,403,53);
frase2 := copy(linha,456,53);
frase3 := copy(linha,509,53);
frase4 := copy(linha,562,53);
frase5 := copy(linha,615,53);
frase6 := copy(linha,668,53);
totalfatura := copy(linha,319,10);
competencia1 := copy(linha,329,2);
competencia2 := copy(linha,331,4);
dados1 := copy(linha,11,3);
dados2 := copy(linha,1,10);
extenso := copy(linha,196,120);
emissao1 := copy(linha,335,2);
emissao2 := copy(linha,337,2);
emissao3 := copy(linha,339,4);
vencimento1 := copy(linha,343,2);
vencimento2 := copy(linha,345,2);
vencimento3 := copy(linha,347,4);
nome := copy(linha,14,40);
rua := copy(linha,54,40);
cidade := copy(linha,162,20);
cep1 := copy(linha,134,5);
cep2 := copy(linha,139,3);
bairro := copy(linha,142,20);
codigo := copy(linha,182,14);


if checkbox1.Checked = true then
begin
impostodesc := (memo1.lines.text);
imposto := copy(linha,504,5);
end;


RvProject1.SetParam(''frase1'',frase1);
RvProject1.SetParam(''frase2'',frase2);
RvProject1.SetParam(''frase3'',frase3);
RvProject1.SetParam(''frase4'',frase4);
RvProject1.SetParam(''frase5'',frase5);
RvProject1.SetParam(''frase6'',frase6);
RvProject1.SetParam(''totalfatura'',totalfatura);
RvProject1.SetParam(''competencia1'',competencia1);
RvProject1.SetParam(''competencia2'',competencia2);
RvProject1.SetParam(''dados1'',dados1);
RvProject1.SetParam(''dados2'',dados2);
RvProject1.SetParam(''emissao1'',emissao1);
RvProject1.SetParam(''emissao2'',emissao2);
RvProject1.SetParam(''emissao3'',emissao3);
RvProject1.SetParam(''vencimento1'',vencimento1);
RvProject1.SetParam(''vencimento2'',vencimento2);
RvProject1.SetParam(''vencimento3'',vencimento3);
RvProject1.SetParam(''extenso'',extenso);
RvProject1.SetParam(''nome'',nome);
RvProject1.SetParam(''rua'',rua);
RvProject1.SetParam(''cidade'',cidade);
RvProject1.SetParam(''bairro'',bairro);
RvProject1.SetParam(''codigo'',codigo);
RvProject1.SetParam(''Cep1'',Cep1);
RvProject1.SetParam(''Cep2'',Cep2);
RvProject1.SetParam(''impostodesc'',impostodesc);
RvProject1.SetParam(''imposto'',imposto);

RvProject1.ExecuteReport(''Report1'');

end;

end;

end.