Ошибка при работе с реестром

Не могу понять в чем ошибка.Вот процедура:

procedure TForm1.ListBox1Click(Sender: TObject);
begin
reg:=TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
if reg.OpenKey(Check,false) then//все время = false
.......
reg.Free;
end;
//-----------------
function Check:string;
begin
for i := 0 to p.Count-1 do
begin
reg:=TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
if reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\'+p,false) then
if reg.ValueExists('UninstallString') then
if Form1.ListBox1.Items.Strings[Form1.ListBox1.ItemIndex]=reg.ReadString('DisplayName') then
begin
result:='SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\'+p;
exit;
end;
reg.Free;
end;
end;
//-------------------------
if reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall',false) then
reg.GetKeyNames(p);