291     SDL_RectMake.w:= width;

   291     SDL_RectMake.w:= width;

   292     SDL_RectMake.h:= height;

   292     SDL_RectMake.h:= height;

   293 end;

   293 end;

   294 

   294 

   295 function GetTeamStatString(p: PTeam): shortstring;

   295 function GetTeamStatString(p: PTeam): shortstring;

   297 begin

   297 begin

   298     s:= p^.TeamName + ':' + IntToStr(p^.TeamHealth) + ':';

   298     s:= p^.TeamName + ':' + IntToStr(p^.TeamHealth) + ':';

   299     GetTeamStatString:= s;

   299     GetTeamStatString:= s;

   300 end;

   300 end;

   301 

   301