504     FreeTexture(SpritesData[ii].Texture);

   504     FreeTexture(SpritesData[ii].Texture);

   505     if SpritesData[ii].Surface <> nil then SDL_FreeSurface(SpritesData[ii].Surface)

   505     if SpritesData[ii].Surface <> nil then SDL_FreeSurface(SpritesData[ii].Surface)

   506     end;

   506     end;

   507 

   507 

   508 FreeTexture(HHTexture);

   508 FreeTexture(HHTexture);

   512 end;

   510 end;

   513 

   511 

   514 function  RenderStringTex(s: string; Color: Longword; font: THWFont): PTexture;

   512 function  RenderStringTex(s: string; Color: Longword; font: THWFont): PTexture;

   515 var w, h: LongInt;

   513 var w, h: LongInt;

   516     Result: PSDL_Surface;

   514     Result: PSDL_Surface;