в чем ошибка и обьясните ошибку спасибо
var
exit, clicked: Command;
img: image;
i,key:integer;
Begin
img:=LoadImage('/image.png');
repeat
fillrect(0,0,getwidth,getheight);
drawimage(img,0,i);
repaint; delay(10);
key:=keytoaction(getkeypressed);
if key=GA_UP then i:=i-1;
if key=GA_DOWN then i:=i+1;
until false;
begin
exit := createCommand('Exit', CM_EXIT, 2);
addCommand(exit);
repeat
delay(100);
clicked := GetClickedCommand;
until
clicked = exit;
end.
я хотела сделать кнопку выход