TEdit y TLabel, cada letra de un color

[josepicd]

Buenas de nuevo, os cuento.

Necesito tener un par de controles, un TEdit y un TLabel con un metodo donde yo pueda decirle que la letra numero X sera de color rojo, el resto negro. Un supuesto sera para resaltar la letra tonica dentro de una palabra. Por ejemplo:

Código Delphi [-]
lbl : Tmylabel;

lbl.Caption := 'prepago';  // se veria todo negro.
lbl.settonica( 5); // se veria todo negro excepto la 'a' que deberia estar en rojo
lbl.settonica(3); //  se veria todo negro excepto la 'e' que deberia estar en rojo

en el caso de el Tedit

Código Delphi [-]
edt : TmyEdit;
edt.settonica(0); // anulamos, todo se escribiria en negro.

en el edt.onexit() haria eso edt.settonica(3) ;

Alguien tiene alguna idea brillante?