[Kramarty]

Теперь нашёл, было только в одной книге, нужно перед
Printer.Canvas.TextOut(610, 1890, Form0.Edit1_1.Text);

Прописать:
Printer.Canvas.Font.Charset := RUSSIAN_CHARSET;