Проблема с печатью из Memo

[Poltev86]

Добрый день..подскажите пожалуйста...при печати из memo..печатаеться абракатабра...пишу в Delphi 2009... в delphi 2007 этот код пашет...но все же интересно почему в 2009 не хотит..может кто встречался с такой проблемой...подскажите как решить...Для печати использую код

procedure 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;

Может подскажите другой способ печати!!!