565     begin

   565     begin

   566     FreeTexture(SpritesData[ii].Texture);

   566     FreeTexture(SpritesData[ii].Texture);

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

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

   568     end;

   568     end;

   569 

   569 

   572 end;

   571 end;

   573 

   572 

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

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

   575 var w, h: LongInt;

   574 var w, h: LongInt;

   576     Result: PSDL_Surface;

   575     Result: PSDL_Surface;