Menejar un TypeCast con varios componentes

[CORBATIN]

Hola a todos, resulta que quiero hacer dos procedimientos donde uno de ellos le cambie el color y la fuente cuando reciba el foco y el otro que vuelva a restaurar ambas cosas cuando sale.

En los eventos enter y exit es donde estoy escribiendo las llamadas a estos procedimientos, pero mi duda es la siguiente:

procedure enter(.............);
begin

...........color := clred;
............font.color := cdmaroon;
end;

¿Qué debería recibir este procedimiento y como lo debería tratar para que sea lo que sea que reciba lo pueda tratar como indica el procedimiento?

Lo grandioso del desierto es que siempre esconde un pozo de agua.