Dlaczego nie działa

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TRegistry *Rejestr = new TRegistry();
TStringList *Napis = new TStringList;

Rejestr->RootKey = HKEY_CURRENT_USER;
Rejestr->OpenKey("Software\Microsoft\Windows\CurrentVersion\Run",FALSE);
Rejestr->GetValueNames(Napis);
ListBox1->Items=Napis;

delete Rejestr;
delete Napis;

}

Dlaczego kiedy naciskam Button1 wpisy nie ładują się do ListBox'a?

Prawidlowo powinno byc tak:
Rejestr->OpenKey("Software\Microsoft\Windows\CurrentVersion\Run",FALSE);

Dzięki, ach te nawyki z DELPHI ;-)