ColorDialog - salvando e carregando a cores personalizadas do ColorDialog

// salvando e carregando a cores personalizadas do ColorDialog

CD = ColorDialog

// CARREGAR:

var

  C: Char;

  S: string;

begin

  for C := 'A' to 'Z' do

  begin

    S := LerReg(Chave, 'Color' + C, '000000');

    CD.CustomColors.values['Color' + C] := S;

  end;

 end;

 // SALVAR

 var

  C: Char;

begin

  // salva as cores personalizadas

  for C := 'A' to 'Z' do

    GravaReg(Chave, 'Color' + C, CD.CustomColors.values['Color' + C]);

end;