Registry

Hvorfor kan jeg ikke få dette til at virke???

  TRegistry *Registry = new TRegistry;
  try
  {
    Registry->RootKey = HKEY_LOCAL_MACHINE;
    Registry->OpenKey("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\App Paths\\yourapp.Exe", false);
    Edit1->Text = Registry->ReadString("Path");
  }
  __finally
  {
    delete Registry;
  }

Er der nogen der kan hjælpe mig med det???