TadvEdit es un componente de la suite TMS . He estado mirando el código y lo tienes chupado.
Código Delphi
[-]
constructor TAdvEdit.Create(AOwner: TComponent);
var
VerInfo: TOSVersioninfo;
i: integer;
begin
inherited Create(aOwner);
FFocusColor := clNone;
FFocusFontColor := clWindowText;
FNormalColor := clWindow;
FFontColor := self.Font.Color;
FBorderColor := clNone;
FModifiedColor := clHighLight;
FErrorColor := clRed;
FErrorFontColor := clWhite;
FURLColor := clBlue;
FDisabledColor := clSilver;
FFlatParentColor := True;
FFlatLineColor := clBlack;
.......
Asi que pones los colores que tu creas convenientes en donde toque y a correr.