Нужна функция UnZip (n: string): System.Drawing.Color

function UnZip(n: string): System.Drawing.Color;
var
  R, G, B: string;
  i, p: integer;
begin
  for i := 1 to n.Length do
  begin
    if n[i] = ' ' then // Счётчик пробелов
      Inc(p);
    
    if p = 0 then // Если нет пробелов считываем R
    begin
      if n[i] = 'M' then
        R := '255'
      else
        R += n[i];
    end;
    
    if p = 1 then // После 1-ого пробела считываем G
      if n[i] = 'M' then
        G := '255'
      else
        G += n[i];
    
    if p = 2 then // После 2-ого пробела считываем B
      if n[i] = 'M' then
        B := '255'
      else
        B += n[i];
  end;
  
  if n = 'A' then // Английская
  begin
    R := '0';
    G := '0';
    B := '0';
  end;
  
  Result := Color.FromArgb(StrToInt(R), StrToInt(G), StrToInt(B));
end;

if p = 0 then // Если нет пробелов считываем R
    begin
      if n[i] = 'M' then
        R := '255'
      else
        R += n[i];
    end;

    if p = 0 then // Если нет пробелов считываем R
    begin
      case n[i] of
        'M': R := '255';
        'X': R := '120';
        'Нужная буква': R := 'Нужное значение';
      else
        R += n[i]; // Дефолтное значение
      end;
    end;

function UnZip(n: string): System.Drawing.Color;
var
  i, p, j: integer;
  RGB: array [1..3] of string;
begin
  If n = 'A' Then begin RGB[1]:= '0'; RGB[2]:= '0'; RGB[3]:= '0'; end
  else 
 
 
  for i := 1 to n.Length do
  begin
    if n[i] = ' ' then // Счётчик пробелов
      Inc(p);
    For j:=0 to 2 do
     Begin
        if p = j then 
          begin
           case n[i] of
            'M': RGB[j+1] := '255';
            'X': RGB[j+1] := '200';
            {и т. д.}
          else RGB[j+1] += n[i];
           
         end;
         
        end;
  end;
  end;
  Result := Color.FromArgb(StrToInt(RGB[1]), StrToInt(RGB[2]), StrToInt(RGB[3]));
end;