122 ////////////////////

   122 ////////////////////

   123 procedure OnDestroy;

   123 procedure OnDestroy;

   124 begin

   124 begin

   125     WriteLnToConsole('Freeing resources...');

   125     WriteLnToConsole('Freeing resources...');

   126     FreeActionsList();

   126     FreeActionsList();

   127     StoreRelease();

   128     StoreRelease();

   128     ControllerClose();

   129     ControllerClose();

   129     CloseIPC();

   130     CloseIPC();

   130     TTF_Quit();

   131     TTF_Quit();

   131 {$IFDEF SDL13}

   132 {$IFDEF SDL13}