problemer med registry

kan ikke finde ud af reg db. hvad mangler jeg? jeg skal have slette *txt1

var
Registry: TRegistry;
begin
  Registry.RootKey:=HKEY_CLASSES_ROOT;
  If Registry.OpenKey('txt1',True) then
    begin
    Registry.DeleteKey('txt1', true);
Registry.Free;
end;