Modificar y guardar las propiedades Font

[Carmelo Cash]

Ya estoy un poco más encaminado

Por ejemplo para asignarle la propiedad Negrita al texto hago:
Edit1.Font.Style := Edit1.Font.Style+[fsBold]

Para sacarla hago:
Edit1.Font.Style := Edit1.Font.Style-[fsBold]

Para preguntar por un estilo hago

If Edit1.Font.Style=[fsBold] Then ...

El problema es que si el estilo tiene asignado más de una propiedad Ej:
(FsBold + FsItalic)
la pregunta anterior da como resultado falso, entonces tengo que preguntar:

If Edit1.font.Style=[fsBold] Then ...
If Edit1.font.Style=[ FsBold, fsItalic ] Then ...

y todas las combinaciones. Puedo hacerlo, no son muchas, pero es muy desprolijo.

pregunta:

¿como puedo preguntar?

Si [FsBold] está incluido en la lista de Edit1.Font.Style Entonces...

Se entiende?.

Gracias.