ayuda con color en controles activos

[squenda]

Hola a todos, una vez mas dando lata, lo que necesito saber en esta ocacion es:

a los controles de edicion de un formulario como son edits, combo box, memos y de fecha como el date time picker necesito colorearlos cuando tienen el foco, lo que hago es que en el evento OnEnter de cada control les asigno algun color...

edt_clientes.color := clRed;

y en el evento OnExit les devuelvo el color original...

edt_clientes.color := clWindow;

pero es de verdad una lata estar haciendo esto para cada control, imaginense cuando hay 30 o mas controles.... que hueva!!

asi que decidi pedir ayuda para ver si alguien sabe de algun procedimiento que haga lo anterior sin tanto rollo.

de antermano muchas gracias

saludos