ОТкрытие программы по клику на файле своего формата

[ВалекFCRK]

Здравствуйте.
Я хотел сделать так. Чтобы при открытие файла с разрешением .recept этот файл открывался в мойе программе в мемо
Form.memo

Не подумал.
Нашел первый попавшийся код. засунул, запустил. Все получилось но я ничего в коде не заменял. Все оставил как есть.


Вот код:

procedure SetupExtension;
var
    Reg: TRegistry;
begin
    Reg := TRegistry.Create;
 
    reg.RootKey := HKEY_CLASSES_ROOT;
    reg.LazyWrite := false;
 
    // ассоциируем файлы с расширением .TRY с MyProgram.Project
    reg.OpenKey('.try', true);
    reg.WriteString('', 'MyProgram.Project');
    reg.CloseKey;
 
    // записываем описание типа файла
    reg.OpenKey('MyProgram.Project', true);
    reg.WriteString('', 'MyProgram try file');
    reg.CloseKey;           
 
    // записываем команду запуска         
    reg.OpenKey('MyProgram.Project\shell\open\command', true);
    reg.WriteString('', Application.ExeName + ' "%1"');
    reg.CloseKey;
 
    // ассоциируем с файлам '.TRY' иконку нашего приложения
    reg.OpenKey('MyProgram.Project\DefaultIcon',true);
    reg.WriteString('', Application.ExeName + ',1');
    reg.CloseKey;
    
    Reg.Free;
end;

Когда я убедился что это код рабочий я начал этот код редактировать под свою программу.
ЗАпустил. Ничего не изменилось.
Как я понял эти настройки сохранились, и чтобы записать новые нужно сначала удалить эти.

Помогите как это сделать.

[HellMercenariess]

Reg:=TRegistry.Create; // создаем
  Reg.RootKey := HKEY_CLASSES_ROOT; // указываем корневую ветку
  if Reg.KeyExists('.')=False then

Reg.DeleteValue
или
Reg.DeleteKey(Key);

В конце всегда

 
 Reg.Free;

[ВалекFCRK]

Спасибо .