[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

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

[icWasya]

Ну во первых - загрузить в мемо или распечатать?
Мемо в этом коде не нужен

Код:

procedure TMain.N2Click(Sender: TObject); 
  var 
    i:integer; 
    ST: TStrings; 
begin
  if printdialog1.Execute then
     begin
      ST:=TStringList.Create(); 
      try //<<==--
       for I :=0 to flb.Count-1 do //<<==--
       begin
          ST.Clear; 
          ST.LoadFromFile(Flb.Directory+'\'+Flb.Items[i]);
          PRP.Variables.Variables['Dat']:=#39+ST.Text+#39; 
          PRP.PrepareReport(); 
          PRP.Print;   
        end;
      finally
        ST.Free(); // и не забыть про это
      end;    
    end; 
  end; 
end;   
end.