Якщо вам потрібно завантажувати і зберігати користувацькі кольори з файлу
CONTROL.INI, необхідний деякий додатковий код. Видаліть тільки щовведені рядки і замініть пару begin-end обробника події OnDblClickтакими рядками:

VAR N, P: Word; begin

WITH TIniFile.Create ( 'CONTROL.INI') DO try

WITH ColorDialog1 DO

BEGIN

ReadSectionValues ( 'Custom Colors', CustomColors);

IF Execute THEN

BEGIN

Form1. Color: = Color;

FOR N: = 0 TO CustomColors.Count-1 Do

BEGIN

P: = Pos ( '=', CustomColors [ N ]);

WriteString ( 'CustomColors',

Copy (CustomColors [N], 1, P-1),

Copy (CustomColors [N ], P 1, 255 )),

END;

END;

END; finally

Free;

END; end;
Тепер слід перейти на початок файлу та додати оператор uses ім'ямодуля IniFiles (тобто на початку файла потрібно знайти рядок, що починається зіслова uses і додати IniFiles, а потім кому). В результаті при кожномуподвійному натисканні на формі для користувача кольору діалогу Color (Колір) будутьзавантажуватися з файлу CONTROL.INI. Якщо додати або змінитипризначені для користувача кольору і клацнути на кнопці ОК, зміни запишуться в
CONTROL.INI.