Ассоциировать иконку с файлом

[xes]

Делаю вот так но, после перезагрузки картинка у файла не появляеться так остаються не связанный с картинкой?

RegFile:=TRegIniFile.Create;
RegFile.RootKey:=HKEY_CLASSES_ROOT; //устанвливаем текущий ключ
RegFile.WriteString('.xs','','Xes.F iles'); // определяем расширение
RegFile.WriteString('Xes.Files','', 'Исполнительный файл станка с ЧПУ');//Описание ассоциированных файлов (для списка "Типы файлов" Windows 98).
RegFile.WriteString('Xes.Files \DefaultIcon','',extractfilepath(pa ramstr(0))+'xesfiles.ico');//устанавливаем икону для ассоциированных файлов
RegFile.CloseKey;
RegFile.Free;