Színek használata konzol alkalmazás feliratainál

  FOREGROUND_BLUE = 1;
  FOREGROUND_GREEN = 2;
  FOREGROUND_RED = 4;
  FOREGROUND_INTENSITY = 8;

type
  TConsoleColor=(ccRed, ccMaroon, ccLime, ccGreen, ccBlue, ccNavy, ccFuchsia, ccPurple, ccAqua,
      ccTeal, ccYellow, ccOlive, ccBlack, ccWhite, ccSilver, ccGray);

const
  CONSOLECOLOR: array[TConsoleColor] of DWORD=(
    FOREGROUND_RED or FOREGROUND_INTENSITY,
    FOREGROUND_RED,
    FOREGROUND_GREEN or FOREGROUND_INTENSITY,
    FOREGROUND_GREEN,
    FOREGROUND_BLUE or FOREGROUND_INTENSITY,
    FOREGROUND_BLUE,
    FOREGROUND_RED or FOREGROUND_BLUE or FOREGROUND_INTENSITY,
    FOREGROUND_RED or FOREGROUND_BLUE,
    FOREGROUND_GREEN or FOREGROUND_BLUE or FOREGROUND_INTENSITY,
    FOREGROUND_GREEN or FOREGROUND_BLUE,
    FOREGROUND_RED or FOREGROUND_GREEN or FOREGROUND_INTENSITY,
    FOREGROUND_RED or FOREGROUND_GREEN,
    0,
    FOREGROUND_RED or FOREGROUND_GREEN or FOREGROUND_BLUE or FOREGROUND_INTENSITY,
    FOREGROUND_RED or FOREGROUND_GREEN or FOREGROUND_BLUE,
    FOREGROUND_INTENSITY
  );

  CONSOLECOLOR[ccYellow]

  SetConsoleTextAttribute(FHandle, CONSOLECOLOR[ccLime]);
  WriteLn('Start');