Here is the key down procedure
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
);
var x, y, row, col : integer;
begin
board[mRow, mCol] := floor;
case key of
vk_up : begin
if mRow > 1
then dec(mRow);
end;
vk_down : begin
if mRow < maxRow
then inc(mRow);
end;
vk_left : begin
if mCol > 1
then dec(mCol);
end;
vk_right : begin
if mCol < maxCol
then inc(mCol);
end;
showboard;
end;
unit1.pas(108,8) Error: Identifier not found "vk_up"
unit1.pas(108,8) Error: Constant Expression expected
unit1.pas(113,10) Error: Identifier not found "vk_down"
unit1.pas(113,10) Error: Constant Expression expected
unit1.pas(113,10) Error: duplicate case label
unit1.pas(117,10) Error: Identifier not found "vk_left"
unit1.pas(117,10) Error: Constant Expression expected
unit1.pas(117,10) Error: duplicate case label
unit1.pas(121,11) Error: Identifier not found "vk_right"
unit1.pas(121,11) Error: Constant Expression expected
unit1.pas(121,11) Error: duplicate case label
unit1.pas(125,20) Error: Constant and CASE types do not match
unit1.pas(125,20) Error: Constant Expression expected
unit1.pas(125,20) Error: duplicate case label
unit1.pas(125,20) Fatal: Syntax error, ":" expected but ";" found