Регистр+дельфи - крыша едет не спеша...

Question

Почему я не могу считать из регистра то, что в него пишу? Примерный код: 
 
with Reg do begin 
OpenKey(s); 
WriteString(ss,sss); 
CloseKey; 
OpenKey(s); 
sss:=ReadString(ss); 
ShowMessage(sss); 
CloseKey; 
end; 
 
Корень использую HKCU, RegEdit все записанные значения видит, а моя прога - нет. Уже просто идей не осталось, что это может быть.

Геннадий Савченков · Accepted Answer

Х. . его знает, товарищ майор. 
 
{$APPTYPE CONSOLE} 
 
uses 
 Registry; 
 
var 
 Reg: TRegistry; 
 s, ss, sss, rrr: string; 
 
begin 
 Reg := TRegistry.Create; 
 s := 'MySection'; 
 ss := 'MyName'; 
 sss := 'MyValue'; 
 
 with Reg do begin 
 OpenKey(s, true); 
 WriteString(ss,sss); 
 CloseKey; 
 OpenKey(s, true); 
 rrr := ReadString(ss); 
 WriteLn(rrr); 
 CloseKey; 
 end; 
 readln; 
end. 
 
<img src="//otvet.imgsmail.ru/download/75487307dac140797e3980b2b23bce6d_i-227.jpg" >

Денис Петроченков · Answer

ShowMessage(sss); открывает пустое окно?