Llamar procedimiento para impresion

[leogobo]

Hola,

estoy llamando a un procedimiento para impresión pero al hacer esto no esta cambiando el tipo de letra ni el font. Este el el codigo resumido de lo que estoy haciendo:

Código Delphi [-]
 
Procedure imprimir;  
begin
form3.Canvas.Font.Color := clBlack;
form3.Canvas.Font.Size := 15;
Printer.Canvas.TextOut(250, 650, 'Destino: ');
end;

if printdialog1.Execute then
  begin
 with Printer do
  try
    Printer.BeginDoc;
            imprimir;
finally
  Printer.EndDoc;
  end;
end;

Cuando imprime 'Destino: ' no lo hace con el tamaño y letra que especifico. Que hago mal??

Gracias