getColorRed

Returns the red component value of the current color.

  begin
    setColor(127, 0, 0);
    if getColorRed <> 127 then 
    begin
      drawText('This should never happen', 0, 0);
      repaint;
    end;
    delay(1000);
  end.

See also: setColor, getColorGreen, getColorBlue