keyboard kontrol

jeg er ved at lave et program hvor man kan rykke nogle ting frem og tilbage... men jeg ken ikke få dem til at rykke op og ned hvordan gør man det?

den måde de rykker frem og tilbage på er lavet sådan:

if key = 4116 then figur.Left := figur.Left + 5;
if key = 4114 then figur.Left := figur.Left - 5;

hvordan får man den op og ned?