Delphi - imprimir memo

Podríais por favor decirme que código tengo que poner en un botón para que me imprima el contenido de un memo? Gracias

{De la ayuda de Delphi}
este ejemplo imprime un Memo con un birde de 200 pixels alrededor de la página. Para que funcione debes añadir Printer al uses de la Unit.

procedure TForm1.Button1Click(Sender: TObject);

begin
with Printer do
begin
BeginDoc;
Canvas.TextRect(Rect(200,200,PageWidth-200,PageHeight-200),
200, 200, Memo1.Lines.Text);
EndDoc;
end;

end;