Duvida Numa Procedure

[phil_rpg]

estou implementando no onKeyPress dos meus TEdit e TMaskEdit o seguinte:

quando eu clico ou no enter ou no tab ele pula pra o proximo componente.

até ai tudo bem, já tenho isso feito.

meu pro é que eu to criando uma procedure que colori o TEdit ou TMaskEdit e deixa o texto em negrito(pra da um realse mais tchan no programa).isso tb não é o problema.

o problema é o seguinte:

pra não ter que criar uma procedure pra o TEdit e outra pra o TMaskEdit eu quero criar uma só que sirva para os dois.so que estou vendo que o problema todo é a questão do parametro e os atributos que essa classe poderia ter. como eu poderia resolver esse meu caso?tem alguma classe que poderia englobar isso?

vou postar aqui o codigo:

Procedure EcolorNext(var objeto: TCustomEdit);
begin
   with objeto do
      begin
         Font.Style := [fsBold];
         Color := clScrollBar;
      end;
end;

ps: como esqueci de mencionar,a classe TcustonEdit não possui os styles de font e opções de cores,eis ai meu problema.

[Graymalkin]

E se você fizer um cast (com o operador as) para um tipo que contenha o estilo de fonte e as cores? Não sei se a idéia é essa, mas foi o que me veio a mente.

Abraços,

Graymalkin