Usar Nombre Componente en variable

[camino]

Hola amigos
Desearia que me ayudaran a completar una parte del problema.
Con La Funcion FindControl dejo en un Edit el nombre de un Objeto.
(RichEdit).
Hasta aqui todo bien, pero cuando quiero manejar las propiedades del objeto mecionandolo por la variable, no resulta.
Ej:
MiObjeto : TObjectName;
Edit1.Text:=FindControl(windowfrompoint( Cur )).Name;
MiObjeto := Edit1.Text;
MiObjeto.Color := clRed;


Edit1.Text contiene "RichEdit1"