program AK;
{$APPTYPE CONSOLE}
//---------------------------------------------
uses Windows, SysUtils, Messages;
//---------------------------------------------
var
 MyKey: HKey;
 Err  : longint;
 str  : string;
begin
 str:= 'Testing' + #0;
 Err:= RegOpenKeyEx(HKEY_CLASSES_ROOT,'test',0,KEY_WRITE,MyKey);
 if Err <> ERROR_SUCCESS then
   begin
     Err:= RegSetValueEx(MyKey,'Test_KEY',0,REG_SZ,@str,SizeOf(str));
     if Err <> ERROR_SUCCESS then
       begin
         writeln('OK');
         sleep(10000);
       end;
     RegCloseKey(MyKey);
   end;
end.