1175         if SDL_MustLock(tmpsurf) then

  1175         if SDL_MustLock(tmpsurf) then

  1176             SDL_UnlockSurface(tmpsurf);

  1176             SDL_UnlockSurface(tmpsurf);

  1177     end;

  1177     end;

  1178     if (tmpsurf <> nil) then 

  1178     if (tmpsurf <> nil) then 

  1179         SDL_FreeSurface(tmpsurf);

  1179         SDL_FreeSurface(tmpsurf);

  1180 end;

  1181 end;

  1181 

  1182 

  1182 procedure LoadMap;

  1183 procedure LoadMap;

  1183 var tmpsurf: PSDL_Surface;

  1184 var tmpsurf: PSDL_Surface;

  1184     s: shortstring;

  1185     s: shortstring;