Делфи, объект Shape

[Татина]

Доброго времени, помогите пожалуйста.
Нужно сделать движение объекта Shape с помощью стрелок вверх и вниз. Заранее спасибо.

[TaLadno]

обрабатывайте событие "OnKeyDown" или "OnKeyUp", в обработчике к свойству Shape.Top/Shape.Left прибавляете шаг смещения и всё.

procedure XXXX.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
const STEP = 3;
begin
  case Key of
    VK_LEFT: Shape.Left := Shap.Left - STEP;
    VK_RIGHT: Shape.Left := Shape.Left + STEP;
    VK_UP: Shape.Top := Shape.Top - STEP;
    VK_DOWN: Shape.Top := Shape.Top + STEP;
  end;
end;

Зарание пожалуйста.

P.S.: Ну хотя бы "код" проекта тяжело приложить или настолько всё плохо, что не знаем как и IDE открыть?