Перемещение объекта по форме.(Управление с клавиатуры)

[gralex10]

Здравствуйте!
Собственно, мне необходимо организовать перемещение Label'ов и radiobutton'ов по форме.
Перемещение вверх и вниз(т.е. задействован только Top, Left не нужен).
Напишите пожалуйста необходимый обработчик, другие объекты формы, необходимые для реализации(таймер, может) и тип переменной Key(и если необходимы другие, то и их).
Примерный кусок кода:

case Key of
  's': Button1.Top := Button1.Top + 1;
  'w': Button1.Top := Button1.Top - 1;
end;

[gralex10]

Людииии. Очень нужна ваша помощь.