IntToHex ошибка

[Airou]

ColorDialog1.CustomColors[0]:=IntToHex(IniF.ReadInteger('Main', 'Color',1558314)); компилятор выдает There is no overloaded version of 'IntToHex' that can be called with these arguments.
Что не так?

Все понял выставил кол-во цифр другая теперь ошибка

procedure TForm1.N10Click(Sender: TObject);
var IniF: TIniFile;
begin
  IniF:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'Main.ini');
  ColorDialog1.CustomColors[1]:=IntToHex(IniF.ReadInteger('Main','Color',15583141),6);
   If ColorDialog1.Execute then
   begin
     IniF.WriteInteger('Main','Color',ColorDialog1.Color);
     Form2.Color:=ColorDialog1.Color;
   end;
end;

Project .... raised exception class EStringlistError with message 'Out of Bounds[1]'.
Process stopped. Use Step or Run to continue.

Это еще что?

[mutabor]

Для ini файла такого вида:

[Colors]
ColorA=FBBA9B
ColorB=FBBA9B
ColorC=B5BC49
ColorD=BCF6F5
ColorE=6276DB
ColorF=34F8E6
ColorG=1ECB23
ColorH=1ECB23
ColorI=1ECB23
ColorJ=6AA69E
ColorK=6AA69E
ColorL=FEFFF4
ColorM=FEFFF4
ColorN=FDC1AB
ColorO=FDC1AB
ColorP=FDC1AB

Работает такой код:

for i:=65 to 80 do
  IniFile.WriteString('Colors','Color'+Char(i),
    ColorDialog1.CustomColors.Values['Color'+Char(i)]);

Обрати внимание как идет нумерация в массиве CustomColors.Values: 'ColorA', 'ColorB' и т.д.

[Airou]

Чего-то туговато доходит.
Почему с 65 и до 80?
И чего мы добьемся этой строчкой ColorDialog1.CustomColors.Values['Color'+Char(i)]);
ее походу продолжить надо наподобии ColorDialog1.CustomColors.Values['Color'+Char(i)]):='FDC1AB';

Я просто хочу чтобы в секции дополнительных цветов при загрузке программы появлялся сохраненный в ини файле цвет.

[mutabor]

Я немного перепутал, скопировал не из той процедуры, это запись ini, а не чтение, я потом заметил но не исправлял, думал ты и так поймешь. Тем более это не столь важно, INI тут вообще боком.

Объясняю популярно:
Обращение к текущему (активному) цвету в ColorDialog:

ColorDialog1.Color:=$FF0000;

Обращение к дополнительным (Custom) цветам в ColorDialog:

ColorDialog1.CustomColors.Values['ColorA']:=$0000FF;
ColorDialog1.CustomColors.Values['ColorB']:=$00FF00;
//и так далее до ColorP, всего их 16

Почему с 65 и до 80? Потому что нужны заглавные английские буквы A-P они как раз идут с 65 по 80. Функция Char(i) как раз их и возвращает. Прибавляем их к строке 'Color' и теперь можно присваивать цвет:

ColorDialog1.CustomColors.Values['Color'+Char(i)]:=IniFile.ReadString(
  'Colors','Color'+Char(i),IntToHex(0,6));

[Airou]

Спасибо, разжевал).