Colores en una aplicación cónsola

program Test1Consola;
{$APPTYPE CONSOLE}
uses sysutils, Windows;
 
var
  ConsoleHandle: THandle;
  ConsoleScreenBufferInfo: _CONSOLE_SCREEN_BUFFER_INFO;
begin
  ConsoleHandle := GetStdHandle(STD_OUTPUT_HANDLE);
  GetConsoleScreenBufferInfo(ConsoleHandle,ConsoleScreenBufferInfo);
  // Añadir el texto en azul :
  SetConsoleTextAttribute(ConsoleHandle,FOREGROUND_BLUE);
  WriteLn('Este texto es azul !!!');
 
  // Añadir el texto en amarillo (con luminosidad + rojo + verde = amarillo) :
  SetConsoleTextAttribute(ConsoleHandle,FOREGROUND_GREEN 
                 or FOREGROUND_RED or FOREGROUND_INTENSITY);
  ReadLn;
   // restablecer los colores originales
  SetConsoleTextAttribute(ConsoleHandle,ConsoleScreenBufferInfo.wAttributes);
end.