TConsoleColorEx

type TConsoleColorEx = record

public

  Text: string;

  NormalColors: TConsoleColors;

  IsError: Boolean;

  ErrorColors: TConsoleColors;

  HighlightedColors: TConsoleColors;

  HighlightedText: string;

  CaseSensitive: Boolean;

  procedure Clear;

end;