delphi问题求救SOS!

Question

uses Printers
procedure Tform1.PrintStrings(Strings: TStrings);
var
  Prn: TextFile;
  i: word;
begin
  AssignPrn(Prn);
  try
    Rewrite(Prn);
    try
      for i := 0 to Strings.Count - 1 do
        writeln(Prn, Strings.Strings[i]);
    finally
      CloseFile(Prn);
    end;
  except
    on EInOutError do
      MessageDlg('Error Printing text.', mtError, [mbOk], 0);
  end;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  PrintStrings(Memo1.Lines);
end; 

Answer 1

此问题回答结束.感谢两位的指点.torble(elbrot)得2分.