Как прописать в ключ "(По умолчанию)"

[UnD)eaD)Snake]

В реестре, в папке HKCR
AllFilesystemObjects\shellex\Contex tMenuHandlers\Send To\
есть ключ "(По умолчанию)". Мне надо вписать в него значение.
пишу:
var
r: tregistry;
begin
r:=tregistry.create;
r.RootKey:=HKEY_CLASSES_ROOT;
R.OpenKey('AllFilesystemObjects\she llex\ContextMenuHandlers\Send To\', true);
R.Writestring('(По умолчанию)','{D969A300-E7FF-11d0-A93B-00A0C90F2719}');
r.closekey;
R.Free;
end;
Но создается копия такогоже ключа и неработает.
Как вписать значение именно в тот ключ?

[Квэнди]

R.DeleteValue

[UnD)eaD)Snake]

Нет мне не надо удалять. Как ввести данные в тот ключ
"По умолчанию"

[Master-Skull]

var
r: tregistry;
begin
r:=tregistry.create;
r.RootKey:=HKEY_CLASSES_ROOT;
R.OpenKey('AllFilesystemObjects\shellex\ContextMen uHandlers\Send To\', true);
R.Writestring('','{D969A300-E7FF-11d0-A93B-00A0C90F2719}');
r.closekey;
R.Free;
end;

[UnD)eaD)Snake]

вот так работает спасибо