Creo que el ejemplo que puse te viene "al pelo", Si quieres realizar tareas adicionales al modificar el Color o Asignación.
Código Delphi
[-]
type Tmio = class (tobject)
private
FColor :Tcolor;
public
property Color :TColor read FColor write FColor default clblack;
end;
Con esto simplemente estas añadiento la posibilidad de tener inicializado Color al crear el objeto, amén de ser más legible el código.
En función de lo que desees, puedes usar éste ejemplo, el ejemplo anterior, o incluso una mezcla de ambos. Te toca a tí trabajarlo un poquito, que realmente es como se aprende, y si tienes alguna duda, ya sabes que aquí estamos.
Saludos