Utiliza FastReport es un reporteador para FireMonkey
ahora que si queires ahcerlo por el lado complicado tienes que convertir el Texto en Imagen y despues utilizar el procedeminto compartir imagen
Código Delphi
[-]procedure TFormPrincipal.ShowShareSheetAction2BeforeExecute(Sender: TObject);
begin
ShowShareSheetAction1.Bitmap.Assign(Image3.Bitmap);
end;
esta funcion te preguntara porque emdio una de ellas es la impresora pero peude ser correo etc.
saludos