печатание из memo << На главную или назад  

delphi
проблемы при печати текста из memo. вместо букв печатаются квадраты.
помогите с установлением причины и ее решением. Заранее благодарю

procedure TForm4.N16Click(Sender: TObject);
var
Str:System.TextFile;
i:integer;
begin
if PrintDialog1.Execute then
begin
AssignPrn(Str);
Rewrite(Str);
Printer.Canvas.Font:=Memo1.Font;
for i:=0 to Memo1.Lines.Count-1 do
Writeln(Str,Memo1.Lines[i]);
System.CloseFile(Str);
end;
end;