Delphi - cambiar fuentes de imprexion

utilizo este codigo para impriimir y me funciona mi problema es como podria cambiar las funtes de impresion para que fuesen de un tamaño mas pequeño gracias os dejo el codigo

var x, y: Integer;
begin
Printer.BeginDoc;
with Printer.Canvas do
begin
x := Printer.PageHeight div 50;
y := Printer.PageWidth div 15;
Font.Name:= 'arial';
Font.Height:= x*2;
Font.Color:= clblack;
TextOut (x*1,y*3 ,'nº '+ dbedit1.Text+' ' +'telefono'+ dbedit2.Text+' ');
TextOut (x*1,y*4 ,'nº '+ dbedit3.Text+' ' +'telefono'+ dbedit4.Text+' ');
Printer.EndDoc;
end;

me vastaria con poder modificar las fuentes o si ay algun systema mejor para hacelo gracias un saludo

Probaste con Size

var x, y: Integer;
begin
Printer.BeginDoc;
with Printer.Canvas do
begin
x := Printer.PageHeight div 50;
y := Printer.PageWidth div 15;
Font.Name:= 'arial';
Font.Size:=10;//*****************************************************
Font.Height:= x*2;
Font.Color:= clblack;
TextOut (x*1,y*3 ,'nº '+ dbedit1.Text+' ' +'telefono'+ dbedit2.Text+' ');
TextOut (x*1,y*4 ,'nº '+ dbedit3.Text+' ' +'telefono'+ dbedit4.Text+' ');
Printer.EndDoc;
end;

ya probe a cambiar el size pero no me imprime con un valor inferiol a 40
si ubiese otra forma de cambiar las fuentes me lo puedes explicar gracias