Не работает ValueExists

Я делаю блокнот и у мя такая функция в нём есмь:

TRegistry *Reestr = new TRegistry;
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Reestr->RootKey=HKEY_CURRENT_USER;
....
if(Reestr->KeyExists("\\Software\\my Name")){
ShowMessage("IF"); //для наглядности работы
....
if(Reestr->ValueExists("Font")){
ShowMessage("Font"); //для наглядности работы
Memo1->Font->Name=Reestr->ReadString("Font");
....
}else ShowMessage("!FONT"); .........

так вот ValueExists всегда возращает false т.е. наблюдаю "!FONT" .... чё делать? где собака покопалась?

PS и ещё как мне в реестр пихнуть стиль шрифта? (жЫрный, курсиф, зачоркнутый)