uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Printers;

type
  TForm1 = class(TForm)
    PrinterSetupDialog: TPrinterSetupDialog;
    Button1: TButton;
    PrintDialog: TPrintDialog;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Memo1: TMemo;
    Memo2: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    FPrinter: TPrinter;
    procedure PrintData(const aTitle, anAuthor, aDate: string;
      const ShortText: string; const LongText: string);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
  if PrintDialog.Execute() then
  PrintData(Edit1.Text, Edit2.Text, Edit3.Text, Memo1.Text, Memo2.Text);
end;

procedure TForm1.PrintData(const aTitle, anAuthor, aDate: string;
  const ShortText, LongText: string);
var Width, Height: integer;
    aRect: TRect;
begin
  FPrinter := Printer();
  Width := FPrinter.PageWidth;
  Height := FPrinter.PageHeight;
  FPrinter.BeginDoc;
  try
    //слева, справа поля 20, сверху 40
    FPrinter.Canvas.TextOut(20, 40, aTitle);
    FPrinter.Canvas.TextOut(Width div 2 - (FPrinter.Canvas.TextWidth(anAuthor) div 2), 40, anAuthor);
    FPrinter.Canvas.TextOut(Width - FPrinter.Canvas.TextWidth(aDate) - 20, 40, aDate);
    aRect := Rect(20, 200, Width - 20, 260);
    DrawText(FPrinter.Canvas.Handle, PChar(ShortText), -1, aRect, DT_LEFT or DT_TOP or DT_WORDBREAK or DT_CALCRECT);  //вычисляет нижнюю границу прямоугольника для заданного текста и изменяет aRect.Bottom
    DrawText(FPrinter.Canvas.Handle, PChar(ShortText), -1, aRect, DT_LEFT or DT_TOP or DT_WORDBREAK);
    aRect := Rect(20, aRect.Bottom + 100, Width - 20, aRect.Bottom + 300);
    DrawText(FPrinter.Canvas.Handle, PChar(LongText), -1, aRect, DT_LEFT or DT_TOP or DT_WORDBREAK or DT_CALCRECT);
    DrawText(FPrinter.Canvas.Handle, PChar(LongText), -1, aRect, DT_LEFT or DT_TOP or DT_WORDBREAK);
  finally
    FPrinter.EndDoc;
  end;
end;