207     color:= colors[str[1]];

   207     if str[1] <= High(colors) then

   208     delete(str, 1, 1);

   208         begin

   209         color:= colors[str[1]];

   210         delete(str, 1, 1);

   211         end

   212     // fallback if invalid color

   213     else

   214         color:= colors[Low(colors)];

   215