[Vansha]

Код:

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