procedure TSprite.DrawText(x: Single; y: Single; w: Integer; h: Integer; text: array of PAnsiChar; texID: GLuint);
const
AnimCount = 32;
var u:single;
frame : integer;
begin

 glPushMatrix;
 DASCurAnimPos:= Frame mod 32;

 glBindTexture(GL_TEXTURE_2D,TexID);
 glBlendFunc( GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA );
 glEnable( GL_BLEND );

 u:=DASCurAnimPos;

 glTranslatef(x,y,0);
 glBegin(GL_QUADS);
   glNormal3f(0,1,0);

   glTexCoord2f(1/AnimCount*u-1/AnimCount,0);                         glVertex2f( 0, 0);
   glTexCoord2f(1/AnimCount*u,0);             glVertex2f( w, 0);
   glTexCoord2f(1/AnimCount*u,1); glVertex2f( w, h);
   glTexCoord2f(1/AnimCount*u-1/AnimCount,1);             glVertex2f( 0, h);
 glEnd;
 glPopMatrix;
end;