69 SDL_UpperBlit(strSurface, nil, resSurface, nil);

    69 SDL_UpperBlit(strSurface, nil, resSurface, nil);

    70 

    70 

    71 SDL_FreeSurface(strSurface);

    71 SDL_FreeSurface(strSurface);

    72 

    72 

    73 cl.s:= str;

    73 cl.s:= str;

    75 cl.Tex:= Surface2Tex(resSurface);

    75 cl.Tex:= Surface2Tex(resSurface);

    76 SDL_FreeSurface(resSurface)

    76 SDL_FreeSurface(resSurface)

    77 end;

    77 end;

    78 

    78 

    79 procedure AddChatString(s: shortstring);

    79 procedure AddChatString(s: shortstring);