Так с отступами то разобрался, а как отступы при печати организовать ?
Использую процедуру PrintStrings.
Код:
procedure TForm1.Button4Click(Sender: TObject);
begin
// printer.canvas.font := Memo1.font;
Printer.canvas.font.Name:='Arial';
Printer.canvas.Font.Size:=9;
PrintStrings(Memo1.Lines);
end;