Какой противный реестр!

[Viteef]

Помогите пожалуйста разобраться с реестром!

procedure TForm1.Button1Click(Sender: TObject);
var regs:tregistry;
str:string; i:integer;
begin
regs.Create;
regs.OpenKey('MyNewSettings',true);
regs.WriteString('Const','5');
regs.CloseKey;
regs.Free;
end;


После нажатия на кнопку(button1)происходит следующее:
Раздел создает, запись делает, но при этом появляються ошибки типа
Access violation at adress...
Exception EAccessViolation if module project1.exe at...
Потом ПРОПАДАЕТ кнопка! А когда закрываю программу, он меня еще раз обзывает:
Exception EAccessViolation if module project1.exe at...

Че-то я не то делаю, подскажите кто знает!

[ZhekON]

regs.OpenKey('MyNewSettings',true);

Тоесть ты пытаешся создать роздел вне реестра?

[Viteef]

Сообщение от ZhekON

regs.OpenKey('MyNewSettings',true);

Тоесть ты пытаешся создать роздел вне реестра?

По умолчанию раздел реестра HKEY_CURRENT_USER

[ZhekON]

Кто жэ напрямую создаёт обекты?...
нужно вот так:

var
Form1: TForm1;
regs:tregistry;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
regs:=Tregistry.Create;
regs.OpenKey('MyNewSettings',true);
regs.WriteString('Const','5');
regs.CloseKey;
regs.Free;
end;

[Viteef]

Все проще чем я думал. Работает, спасибо.