我在listview控件中添加了数行数据,我想在报表打印中使用该listview中的数据（listview中有几行打印几行），如何进行？(100分)

我在listview控件中添加了数行数据
我想在报表打印中使用该listview中的数据（listview中有几行打印几行），如何进行？

procedure TForm1.Button1Click(Sender: TObject);
var
f: textfile;
i,j:integer;
str:string;
begin

ASSIGNFILE(f,'LPT1');
try
rewrite(f);
str:='';
for i := 0 to listview1.Columns.Count - 1 do
begin
str := str+listview1.Columns.Caption;
end;
writeln(f,str);

for i := 0 to listview1.Items.Count - 1 do
begin
str := listview1.Items.Caption;
for j := 0 to listview1.Items.SubItems.Count - 1 do
begin
str := str + listview1.Items.SubItems[j];
end;
writeln(f, str);
end;
finally
closefile(f);
end;
end;