Claves de registro

[rauros]

Código Delphi [-]
with TRegistry.Create do
  try
    RootKey:= HKEY_CURRENT_USER;
    if OpenKey('\Software\edittxt',TRUE) then
    begin
      WriteInteger('top',form1.top);
      CloseKey;
      WriteInteger('left',form1.left);
      CloseKey;
    end;
  finally
    Free;
  end;
end;

Esto me da un error de los que obligan a cerrar la aplicación. Lo activo con CloseQuery.