ConWriteColoredText

procedure ConWriteColoredText(

  const s: string;

  const TextColor: Byte;

  const BgColor: Byte

); overload;

procedure ConWriteColoredText(

  const s: string;

  const cc: TConsoleColors

); overload;