try
{
Reg->RootKey = HKEY_CURRENT_USER;
Reg->OpenKey(Mmm,false);
Reg->GetKeyNames(Key) ;
for(int i=0;i<Key->Count;i++)
{
if (ListBox1->Selected[i])
{
ListBox1->Items->Delete(i);
Reg->DeleteKey(Key->Strings[i]);
}

Reg->CloseKey() ;
}
}
__finally
{
delete Reg;
delete Key;
}