license = false;
license_key = "asjfh-sdaf1-asf5-5sdf";
do
{
   enter_key = get_string("Введи ключ активации", "");
   if(enter_key == license_key )
   {
     license = true;
     show_message("Введен верный ключ.. Продолжаем работу");
   }
   else if(enter_key == "0")
   {
     show_message("Выход..");
     game_end();
   }
   else
   {
     show_message("Ключ введен не верно! Повторите попытку или введите '0' для выхода");
   }
}
until(!license)

registry_set_root(0)    

Code=registry_read_string_ext('Software\Путь','RCode')    
if (not Code='КОД')  then  begin

Code=get_string('Какой код?','')    

registry_set_root(0)    

registry_write_string_ext('Software\Путь','RCode',Code)    

//Желательно перезапустить игру
game_end()    
end;