Error al escribir en el Registro.

[nesetru]

Sigue sin funcionar

Tengo el suiguiente código

If Reg.KeyExists('\Software\Microsoft\Windows\Bmnse') then
    begin
       If (Today > Reg.ReadDate('MyApp')) then
       begin
          Application.MessageBox('Mensaje','Atención',MB_OK+MB_IconError);
          Halt;
       end
       else
          Application.Run;
    end
    else
    begin
       Reg.CreateKey('\Software\Microsoft\Windows\Bmnse');
       Reg.WriteDate('MyAppDate',StrToDate('15/03/04'));
       Reg.WriteInteger('MyAppData',0);
       If (Today > Reg.ReadDate('MyApp')) then
       begin
          Application.MessageBox('Mensaje','Atención',MB_OK+MB_IconError);
          Halt;
       end;
    end
  finally
    Reg.Free;
  end;

Pero nada, da error al ejecutar las líneas:

Reg.WriteDate('MyAppDate',StrToDate('15/03/04'));
Reg.WriteInteger('MyAppData',0);

Lo que yo quiero hacer es que dentro de la clave 'Bmnse' hayan dos secciones o variables o como queráis llamarlos donde poder almacenar sendos datos.

A ver si así sale...

Saludos.