[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.