зачем так сложно?
Code
if key = KE_key2 then Y := Y - 3 else
if key = KE_key8 then Y := Y + 3 else
if key = KE_key4 then x := x - 3 else
if key = KE_key6 then x := x + 3;
может проще так?
Code
if key = KE_key2 then Y := Y - 3;
if key = KE_key8 then Y := Y + 3;
if key = KE_key4 then x := x - 3;
if key = KE_key6 then x := x + 3;
или это чтоб не опрашивать другие клавиши в случае сопоставления?