[Vansha]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44

procedure TForm1.FormCreate(Sender : TObject); begin   FNumber := 0;   FNumber2 := 0; end;   procedure PrintStrings(Strings: TStrings); var   Prn: TextFile;   i: word;  begin   AssignPrn(Prn);   try     Rewrite(Prn);     try     Printer.Canvas.Font:=Form1.Memo1.Font;     Printer.Canvas.Font.size:=45;         for i := 0 to Strings.Count - 1 do         writeln(Prn, Strings.Strings[i]);     finally       CloseFile(Prn);     end;   except     on EInOutError do       MessageDlg('Ошибка печати.', mtError, [mbOk], 0);   end; end;   procedure TForm1.BitBtn1Click(Sender: TObject); begin Inc(FNumber);   Memo1.Text := IntToStr(FNumber);   Memo1.Lines.Add('окно1');   PrintStrings(Memo1.Lines); end;   procedure TForm1.BitBtn2Click(Sender: TObject); begin Inc(FNumber2);   Memo2.Text := IntToStr(FNumber2);   Memo2.Lines.Add('окно2');   PrintStrings(Memo2.Lines); end; end.

Подскажите как можно исправить.
При печати из Memo каждый символ печатается в строку:
(Вариант1)
1
О
к
н
о
1

А нужно что б была печать
(Вариант2)
1
Окно1

Где и как можно поправить что б печаталось как в варианте 2 и по центру листа, печать происходит выравнивание по левому краю.

[Vansha]

Все решено.
Вместо memo использовал RichEdit