При нажатии кнопки играть появляется белое меню. PascalAbc.net

Uses graphABC,ABCButtons,ABCObjects; 
var 
b1: buttonABC; 
 b2: buttonABC; 
 b3: buttonABC; 
 machine : PictureABC; 
 rip: picture; 
 machines,i: integer; 
 machine1: pictureABC; 
 rips:array[1..30] of point; 
 procedure purpose(); 
 begin 
 ClearWindow; 
 window.Fill('back1.jpg'); 
 Brush.Color := clSkyBlue; 
 font.Color := clRed; 
 font.Size := 15; 
 TextOut(1, 1, '1)Цель игры - набрать как можно больше очков'); 
 end; 
 procedure exit(); 
 begin 
 halt; 
 end; 
 procedure game(); 
 begin 
 ClearWindow; 
 end; 
 Procedure KeyD (Key : integer); 
 begin 
 case Key of 
 VK_D: 
 begin 
 machine.Left:=machine.Left + machines; 
 machine.Move(); 
 end; 
 VK_A: 
 begin 
 machine.Left:=machine.Left - machines; 
 machine.Move(); 
 end; 
 VK_W: 
 begin 
 machine.Top:=machine.Top - machines; 
 machine.Move(); 
 end; 
 VK_S: 
 begin 
 machine.Top:=machine.Top + machines; 
 machine.Move(); 
 end; 
 end; 
 end; 
 procedure game (machine1:pictureABC;speed,hp:integer); 
var i:integer; 
 begin 
 machine:=PictureABC.Create(800,470, 'pers1.jpg'); 
 machine:=machine; 
 machines:=speed; 
 rip:= picture.Create('yama.jpg'); 
 begin 
 Window.Height:=600; 
 Window.Width:=900; 
 window.IsFixedSize := false; 
 Window.Caption:='Game'; 
 window.Fill('test.jpg'); 
 game(machine, 10 ,100); 
 for i:= 1 to 15 do ; 
 begin 
 rips[i].x := random(900); 
 rips[i].y := random(450); 
 end; 
 LockDrawing; 
 for i := 1 to 15 do rip.Draw(rips[i].x, rips[i].y); 
 Lockdrawing; 
 RedRaw; 
 end; 
 end; 
 begin 
 window.Fill('background.jpg'); 
 b1 := new buttonABC(220,100, 200,50, 'Играть', clRed); 
 b1.OnClick := game; 
 OnKeyDown:=KeyD; 
 b2 := new buttonABC(220,170, 200,50, 'Цель', clRed); 
 b2.OnClick := purpose; 
 b3:= new ButtonABC(220,240,200,50, 'Выход', clRed); 
 b3.OnClick:= exit; 
 end.