Si lo entendí bien creo que esto te servirá:
Código:
procedure TForm1.teditEnter(Sender: TObject);
begin
(Sender as TTEdit).Color:=clRed;
(Sender as TTEdit).Font.Color:=clMoneyGreen;
end;
y para la salida
Código:
procedure TForm1.teditEnter(Sender: TObject);
begin
(Sender as TTEdit).Color:=clRed;
(Sender as TTEdit).Font.Color:=clMoneyGreen;
end;
(Sender as TTEdit) -> lo he usado para reutilizarlo con todos los TEdit que quiera.
Hasta otra.