Delphi - Como mover Timage con el teclado

quiero saber como puedo mover un Timage pulsando las teclas izquierda, derecha, arriba y abajo

Yo mismo me respondo

begin
if key = VK_LEFT then
image2.left:=image2.left-5 else
if key = VK_RIGHT then
image2.left:=image2.left+5 else
if key = VK_UP then
image2.top:=image2.top-5 else
if key = VK_DOWN then
image2.top:=image2.top+5;
end;