[Dead_Gigabit]

Всем привет, токой вопрос
Как в FileListBox пробежаться по файлам и загрузить их в Memo а потом распечатать через fast report?

Пытался так:

Код:

procedure TMain.N2Click(Sender: TObject);
var
i:integer;
memo: Tmemo;
begin
if printdialog1.Execute then
begin
memo:=TMemo.Create(nil);
for I :=0 to flb.ItemIndex-1 do begin
memo.Clear;
Memo.Lines.LoadFromFile(Flb.Directory+'\'+Flb.Items[Flb.ItemIndex]);
PRP.Variables.Variables['Dat']:=#39+memo.Text+#39;
prp.PrepareReport();
prp.Print;

end;
end;
end;

end.

prp это frxReport1 от FastReport
FLB FileListBox

Подскажите в чем загвоздка первый раз работаю с этим компонентом....