Hvad går galt i denne kode - TRegistry - if not - and

Der kommer ingen fejlmeddelser og den kommer ikke videre end til trin 1 :o(
Er der én der kan se hvad der evt. går galt med koden ??? for jeg har efterhånden gloet mig blind på den...


var
Reg:TRegistry;
begin
Button1.Enabled := FALSE;
showmessage('trin 1');
  Reg := TRegistry.Create;
  Reg.RootKey:=HKEY_LOCAL_MACHINE;
if not (reg.KeyExists('SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\'+edit1.Text)) and (reg.KeyExists('SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\'+edit1.Text)) then
begin
showmessage('trin 2');
//  Reg.CloseKey;
//  Reg := TRegistry.Create;
//  Reg.RootKey:=HKEY_LOCAL_MACHINE;
  if reg.KeyExists('SOFTWARE\Classes\CLSID\'+edit1.Text) then
begin
showmessage('trin 3');
  Reg.DeleteKey('SOFTWARE\Classes\CLSID\'+edit1.Text);
//  Reg.CloseKey;
//  Reg.Free;
end else
begin
  showmessage('SOFTWARE\Classes\CLSID\'+edit1.Text+' Not found');
end;
showmessage('trin 4');
//  Reg := TRegistry.Create;
//  Reg.RootKey:=HKEY_LOCAL_MACHINE;
  reg.OpenKey('SOFTWARE\Classes\CLSID\bramsing\',FALSE);
  if reg.ValueExists(ListBox1.Items[ListBox1.ItemIndex]) then
begin
showmessage('trin 5');
  Reg.DeleteValue(ListBox1.Items[ListBox1.ItemIndex]);
end else
begin
  showmessage('SOFTWARE\Classes\CLSID\bramsing\'+ListBox1.Items[ListBox1.ItemIndex]+' Not found');
end;
  Reg.CloseKey;
  Reg.Free;
showmessage('trin 6');
end;
end;


Med venlig hilsen
og god jul til alle

//'bramsing'