Непорядок с печатью в Делфи

{ Получить информацию о принтере }
procedure TForm2.GetPrinterInfo;
begin
  PixelsX:=GetDeviceCaps(printer.Handle, LogPixelsX);
  PixelsY:=GetDeviceCaps(printer.Handle, LogPixelsY);
end;
 
{ переводит координаты из мм в пиксели }
function TForm2.PrinterCoordX(x: integer): integer;
begin
  PrinterCoordX:=round(PixelsX/25.4*x/10);
end;
 
{ переводит координаты из мм в пиксели }
function TForm2.PrinterCoordY(Y: integer): integer;
begin
  PrinterCoordY:=round(PixelsY/25.4*Y/10);
end;
 
procedure TForm2.Button1Click(Sender: TObject);
var
  s: string;
  i: integer;
begin
  GetPrinterInfo;
  printer.Canvas.Font.Size := printercoordy(8);
  PrinterSetupDialog1.execute;
  printer.BeginDoc;
  printer.Canvas.TextOut(printercoordx(10), printercoordy(10), Edit1.Text);
  for i := 1 to form1.listbox1.items.count do
  begin
    s := inttostr(i) + '). ';
    case RadioGroup1.ItemIndex of
      0:
        s := s + form1.listbox1.items[i - 1];
      2:
        s := s + form1.listbox2.items[i - 1];
      1:
        s := s + form1.listbox1.items[i - 1] + '  -  ' +
          form1.listbox2.items[i - 1];
    end;
    printer.Canvas.TextOut(printercoordx(10), printercoordy(i * 10), s);
  end;
  printer.endDoc;
  Form2.close;
end;

procedure TFormPrint.Button1Click(Sender: TObject);
begin
fontdialog1.Execute;
  allfont:=fontdialog1.Font;
end;

begin
  Printer.Title := Title;
  Printer.BeginDoc;
  StartDoc;
  Printer.Canvas.TextOut(LeftMargin, LineCoord, Title);
  NextLine;
  while MorePages do
  begin
    StartPage;
    while MoreLines do
    begin
      PrintLine;
      NextLine;
      Application.ProcessMessages;
    end;
    NextPage;
  end;
  Printer.EndDoc;