Delphi - modificar fuente en la impresión

¿Qué modificación tengo que hacerle al siguiente código para cambiar el tamaño de la fuente? Ya he probado cambiandola en el richedit pero no funciona.

procedure TForm1.Button1Click(Sender: TObject);
begin
with Printer do
begin
BeginDoc;
Canvas.TextRect(Rect(200,200,PageWidth-400,PageHeight-200),
200, 200, Richedit1.Lines.Text);
EndDoc;
end;

El objeto a modificar no es Printer, sino canvas, que es el lienzo, deberás cambiar algo así... disculpa si no sale exactamente, pero estoy fuera de mi computador donde desarrollo:

procedure TForm1.Button1Click(Sender: TObject);
begin
with Printer do
begin
BeginDoc;
Canvas.Font.Name := 'Arial';
Canvas.Font.Size := 24;
Canvas.TextRect(Rect(200,200,PageWidth-400,PageHeight-200),
200, 200, Richedit1.Lines.Text);
EndDoc;
end;