Procedure Delphi Color To HTML

CREATE OR ALTER PROCEDURE PRO_COR_HTML (COR VARCHAR(100))
RETURNS (RESULT VARCHAR(20))
AS
  DECLARE VARIABLE I INTEGER;
  DECLARE VARIABLE AUX VARCHAR(20);
BEGIN
  SELECT CASE LOWER(:COR)
           WHEN 'claliceblue'            THEN '#FFF8F0'
           WHEN 'clantiquewhite'         THEN '#D7EBFA'
           WHEN 'claqua'                 THEN '#FFFF00'
           WHEN 'claquamarine'           THEN '#D4FF7F'
           WHEN 'clazure'                THEN '#FFFFF0'
           WHEN 'clbeige'                THEN '#DCF5F5'
           WHEN 'clbisque'               THEN '#C4E4FF'
           WHEN 'clblack'                THEN '#000000'
           WHEN 'clblanchedalmond'       THEN '#CDEBFF'
           WHEN 'clblue'                 THEN '#FF0000'
           WHEN 'clblueviolet'           THEN '#E22B8A'
           WHEN 'clbrown'                THEN '#2A2AA5'
           WHEN 'clburlywood'            THEN '#87B8DE'
           WHEN 'clcadetblue'            THEN '#A09E5F'
           WHEN 'clchartreuse'           THEN '#00FF7F'
           WHEN 'clchocolate'            THEN '#1E69D2'
           WHEN 'clcoral'                THEN '#507FFF'
           WHEN 'clcornflowerblue'       THEN '#ED9564'
           WHEN 'clcornsilk'             THEN '#DCF8FF'
           WHEN 'clcrimson'              THEN '#3C14DC'
           WHEN 'clcyan'                 THEN '#FFFF00'
           WHEN 'cldarkblue'             THEN '#8B0000'
           WHEN 'cldarkcyan'             THEN '#8B8B00'
           WHEN 'cldarkgoldenrod'        THEN '#0B86B8'
           WHEN 'cldarkgray'             THEN '#A9A9A9'
           WHEN 'cldarkgreen'            THEN '#006400'
           WHEN 'cldarkgrey'             THEN '#A9A9A9'
           WHEN 'cldarkkhaki'            THEN '#6BB7BD'
           WHEN 'cldarkmagenta'          THEN '#8B008B'
           WHEN 'cldarkolivegreen'       THEN '#2F6B55'
           WHEN 'cldarkorange'           THEN '#008CFF'
           WHEN 'cldarkorchid'           THEN '#CC3299'
           WHEN 'cldarkred'              THEN '#00008B'
           WHEN 'cldarksalmon'           THEN '#7A96E9'
           WHEN 'cldarkseagreen'         THEN '#8FBC8F'
           WHEN 'cldarkslateblue'        THEN '#8B3D48'
           WHEN 'cldarkslategray'        THEN '#4F4F2F'
           WHEN 'cldarkslategrey'        THEN '#4F4F2F'
           WHEN 'cldarkturquoise'        THEN '#D1CE00'
           WHEN 'cldarkviolet'           THEN '#D30094'
           WHEN 'cldeeppink'             THEN '#9314FF'
           WHEN 'cldeepskyblue'          THEN '#FFBF00'
           WHEN 'cldimgray'              THEN '#696969'
           WHEN 'cldimgrey'              THEN '#696969'
           WHEN 'cldodgerblue'           THEN '#FF901E'
           WHEN 'clfirebrick'            THEN '#2222B2'
           WHEN 'clfloralwhite'          THEN '#F0FAFF'
           WHEN 'clforestgreen'          THEN '#228B22'
           WHEN 'clfuchsia'              THEN '#FF00FF'
           WHEN 'clgainsboro'            THEN '#DCDCDC'
           WHEN 'clghostwhite'           THEN '#FFF8F8'
           WHEN 'clgold'                 THEN '#00D7FF'
           WHEN 'clgoldenrod'            THEN '#20A5DA'
           WHEN 'clgray'                 THEN '#808080'
           WHEN 'clgreen'                THEN '#008000'
           WHEN 'clgreenyellow'          THEN '#2FFFAD'
           WHEN 'clgrey'                 THEN '#808080'
           WHEN 'clhoneydew'             THEN '#F0FFF0'
           WHEN 'clhotpink'              THEN '#B469FF'
           WHEN 'clindianred'            THEN '#5C5CCD'
           WHEN 'clindigo'               THEN '#82004B'
           WHEN 'clivory'                THEN '#F0FFFF'
           WHEN 'clkhaki'                THEN '#8CE6F0'
           WHEN 'cllavender'             THEN '#FAE6E6'
           WHEN 'cllavenderblush'        THEN '#F5F0FF'
           WHEN 'cllawngreen'            THEN '#00FC7C'
           WHEN 'cllemonchiffon'         THEN '#CDFAFF'
           WHEN 'cllightblue'            THEN '#E6D8AD'
           WHEN 'cllightcoral'           THEN '#8080F0'
           WHEN 'cllightcyan'            THEN '#FFFFE0'
           WHEN 'cllightgoldenrodyellow' THEN '#D2FAFA'
           WHEN 'cllightgray'            THEN '#D3D3D3'
           WHEN 'cllightgreen'           THEN '#90EE90'
           WHEN 'cllightgrey'            THEN '#D3D3D3'
           WHEN 'cllightpink'            THEN '#C1B6FF'
           WHEN 'cllightsalmon'          THEN '#7AA0FF'
           WHEN 'cllightseagreen'        THEN '#AAB220'
           WHEN 'cllightskyblue'         THEN '#FACE87'
           WHEN 'cllightslategray'       THEN '#998877'
           WHEN 'cllightslategrey'       THEN '#998877'
           WHEN 'cllightsteelblue'       THEN '#DEC4B0'
           WHEN 'cllightyellow'          THEN '#E0FFFF'
           WHEN 'clltgray'               THEN '#C0C0C0'
           WHEN 'clmedgray'              THEN '#A4A0A0'
           WHEN 'cldkgray'               THEN '#808080'
           WHEN 'clmoneygreen'           THEN '#C0DCC0'
           WHEN 'cllegacyskyblue'        THEN '#F0CAA6'
           WHEN 'clcream'                THEN '#F0FBFF'
           WHEN 'cllime'                 THEN '#00FF00'
           WHEN 'cllimegreen'            THEN '#32CD32'
           WHEN 'cllinen'                THEN '#E6F0FA'
           WHEN 'clmagenta'              THEN '#FF00FF'
           WHEN 'clmaroon'               THEN '#000080'
           WHEN 'clmediumaquamarine'     THEN '#AACD66'
           WHEN 'clmediumblue'           THEN '#CD0000'
           WHEN 'clmediumorchid'         THEN '#D355BA'
           WHEN 'clmediumpurple'         THEN '#DB7093'
           WHEN 'clmediumseagreen'       THEN '#71B33C'
           WHEN 'clmediumslateblue'      THEN '#EE687B'
           WHEN 'clmediumspringgreen'    THEN '#9AFA00'
           WHEN 'clmediumturquoise'      THEN '#CCD148'
           WHEN 'clmediumvioletred'      THEN '#8515C7'
           WHEN 'clmidnightblue'         THEN '#701919'
           WHEN 'clmintcream'            THEN '#FAFFF5'
           WHEN 'clmistyrose'            THEN '#E1E4FF'
           WHEN 'clmoccasin'             THEN '#B5E4FF'
           WHEN 'clnavajowhite'          THEN '#ADDEFF'
           WHEN 'clnavy'                 THEN '#800000'
           WHEN 'cloldlace'              THEN '#E6F5FD'
           WHEN 'clolive'                THEN '#008080'
           WHEN 'clolivedrab'            THEN '#238E6B'
           WHEN 'clorange'               THEN '#00A5FF'
           WHEN 'clorangered'            THEN '#0045FF'
           WHEN 'clorchid'               THEN '#D670DA'
           WHEN 'clpalegoldenrod'        THEN '#AAE8EE'
           WHEN 'clpalegreen'            THEN '#98FB98'
           WHEN 'clpaleturquoise'        THEN '#EEEEAF'
           WHEN 'clpalevioletred'        THEN '#9370DB'
           WHEN 'clpapayawhip'           THEN '#D5EFFF'
           WHEN 'clpeachpuff'            THEN '#B9DAFF'
           WHEN 'clperu'                 THEN '#3F85CD'
           WHEN 'clpink'                 THEN '#CBC0FF'
           WHEN 'clplum'                 THEN '#DDA0DD'
           WHEN 'clpowderblue'           THEN '#E6E0B0'
           WHEN 'clpurple'               THEN '#800080'
           WHEN 'clred'                  THEN '#0000FF'
           WHEN 'clrosybrown'            THEN '#8F8FBC'
           WHEN 'clroyalblue'            THEN '#E16941'
           WHEN 'clsaddlebrown'          THEN '#13458B'
           WHEN 'clsalmon'               THEN '#7280FA'
           WHEN 'clsandybrown'           THEN '#60A4F4'
           WHEN 'clseagreen'             THEN '#578B2E'
           WHEN 'clseashell'             THEN '#EEF5FF'
           WHEN 'clsienna'               THEN '#2D52A0'
           WHEN 'clsilver'               THEN '#C0C0C0'
           WHEN 'clskyblue'              THEN '#EBCE87'
           WHEN 'clslateblue'            THEN '#CD5A6A'
           WHEN 'clslategray'            THEN '#908070'
           WHEN 'clslategrey'            THEN '#908070'
           WHEN 'clsnow'                 THEN '#FAFAFF'
           WHEN 'clspringgreen'          THEN '#7FFF00'
           WHEN 'clsteelblue'            THEN '#B48246'
           WHEN 'cltan'                  THEN '#8CB4D2'
           WHEN 'clteal'                 THEN '#808000'
           WHEN 'clthistle'              THEN '#D8BFD8'
           WHEN 'cltomato'               THEN '#4763FF'
           WHEN 'clturquoise'            THEN '#D0E040'
           WHEN 'clviolet'               THEN '#EE82EE'
           WHEN 'clwheat'                THEN '#B3DEF5'
           WHEN 'clwhite'                THEN '#FFFFFF'
           WHEN 'clwhitesmoke'           THEN '#F5F5F5'
           WHEN 'clyellow'               THEN '#00FFFF'
           WHEN 'clyellowgreen'          THEN '#32CD9A'
        ELSE (SELECT RESULT FROM PRO_COR_6_POSICOES(:COR, '#'))
        END COR
  FROM RDB$DATABASE INTO :AUX;

  RESULT = '';
  I = 2;

  WHILE (I <= CHARACTER_LENGTH(:AUX)) DO
  BEGIN
    RESULT = SUBSTRING(:AUX FROM I FOR 2) || RESULT;
    I = I + 2;
  END

  RESULT = '#' || RESULT;

  SUSPEND;
END;