1:

memo1.color:=colorbox1.Selected;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

{...}
var col: TColor;
{...}

procedure TForm1.getcolor(Sender: Tobject);
begin
with TCombobox(Sender) do begin
  case itemindex of
0: col:= clBlack;
1: col:= clWhite;
2: col:= clRed;
3: col:= clYellow;
4: col:= clBlue;
5: col:= clGreen;
6: col:= clPurple;
7: col:= clFuchsia;
8: col:= clGray;
9: col:= clSilver;
10: col:= clLime;
11: col:= clOlive;
12: col:= clTeal;
13: col:= clAqua;
14: col:= clNavy;
15: col:= clSkyBlue;
16: col:= clMaroon;
end;
end;
end;

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
getcolor(Combobox1);
memo1.color:=col;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

function GetColor(idx: Integer): TColor;
begin
    case idx of
      0 : result := clBlack;
      1 : result := clWhite;
      2 : result := clRed;
      3 : result := clYellow;
      4 : result := clBlue;
      5 : result := clGreen;
      6 : result := clPurple;
      7 : result := clFuchsia;
      8 : result := clGray;
      9 : result := clSilver;
      10 : result := clLime;
      11 : result := clOlive;
      12 : result := clTeal;
      13 : result := clAqua;
      14 : result := clNavy;
      15 : result := clSkyBlue;
      16 : result := clMaroon;
    end;
  end;
end;

procedure TForm1.ComboBox1Click(Sender : TObject);
begin  
  memo1.color := getcolor(Combobox1.ItemIndex);
end;