графика, не меняется фон Опции

[compiler]

Почему в программе не меняется цвет фона?

Uses Graph;
VAR
	x1, y1, x2, y2:integer;
	GraphDriver,GraphMode:integer;
procedure L(x1, y1, x2, y2:word);
	begin
		SetColor(red);
		Line (x1, y1, x2, y2);
	end;
Begin
	GraphDriver:=detect; 
	InitGraph(GraphDriver, GraphMode, '');
	SetBkColor(white);        {<------------------вот строчка которая должна менять цвет фона}
	x1:=150;	y1:=450;	x2:=100;	y2:=350;		L (x1, y1, x2, y2);
	x1:=100;	y1:=350; 	x2:=350;	y2:=350;		L (x1, y1, x2, y2);
	x1:=350;	y1:=350; 	x2:=300;	y2:=450;		L (x1, y1, x2, y2);
	x1:=150; 	y1:=450; 	x2:=300;	y2:=450;		L (x1, y1, x2, y2);
	x1:=200; 	y1:=350; 	x2:=200;	y2:=20; 		L (x1, y1, x2, y2);
	x1:=200; 	y1:=20; 	x2:=250;	y2:=40; 		L (x1, y1, x2, y2);
	x1:=250;	y1:=40; 	x2:=200;	y2:=40; 		L (x1, y1, x2, y2);
	x1:=200;	y1:=50; 	x2:=300;	y2:=250;		L (x1, y1, x2, y2);
	x1:=300; 	y1:=250; 	x2:=200;	y2:=350;		L (x1, y1, x2, y2);
	read(x1);
	CloseGraph;
End.

заранее благодарен.

Добавлено через 7 мин.

FloodFill 

тоже не работает...

[-=Считывающий=-]

У меня TP7.

[compiler]

У меня TP7.

И у тебя работает!?