Можно ли так оформить процедуру...

[HTTqp]

есть процедура работающая с реестро пишу так

procedure CreateKeyRun(path,name:string);
var
  key:HKEY;
begin
if RegOpenKeyEx(HKEY_CURRENT_USER,'тут путь до нужного раздела',0,KEY_CREATE_SUB_KEY or KEY_SET_VALUE, Key)=ERROR_SUCCESS then
 begin
  RegSetValueEx(key,PChar(Name),0,REG_SZ,PChar(path),(lstrlen(PChar(path))+1)*SizeOf(Char));
 end;
if RegOpenKeyEx(HKEY_CURRENT_USER,'тут путь до другого раздела',0,KEY_CREATE_SUB_KEY or KEY_SET_VALUE, Key)=ERROR_SUCCESS then
 begin
  RegSetValueEx(key,PChar(Name),0,REG_SZ,PChar(path),(lstrlen(PChar(path))+1)*SizeOf(Char));
end;
 RegCloseKey(key);
end;

можно ли выполнить RegCloseKey(key); в конце всей процедуры или же нужно закрывать после каждого открытия пути?

[Stilet]

Я бы закрывал после каждого.

[HTTqp]

спасибо, просто чтобы и на будущее знать можно ли так или нет)

[indexx]

HTTqp Для справки. Если при выполнении условия выполняется одна строка кода, её не нужно заключать в begin end. Достаточно структуры if [условие] then [выполняемая строка]

[Stilet]

просто чтобы и на будущее знать можно ли так или нет)

Если ты не будешь закрывать хендлы по идее в функциях, которые работают с записью на диск или устройство эта самая запись может не сработать.
По идее винда сама должна понять что хендл нужно закрыть, но так далеко не всегда происходит.