Selects the background color.
procedure TextBackground(Color: Byte);
Color is an integer expression in the range 0..7, corresponding to one of the first eight text color constants. There is a byte variable in Crt--TextAttr--that is used to hold the current video attribute. TextBackground sets bits 4-6 of TextAttr to Color.
The background of all characters subsequently written will be in the specified color.