[Alegun]

Код:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Shift = [ssCtrl] then
case Key of
 72: Shape1.Left:= Shape1.Left - 1;
 89: Shape1.Top:= Shape1.Top -1;
 74: Shape1.Left:= Shape1.Left + 1;
 71: Shape1.Top:= Shape1.Top + 1;
end;
end;

З.Ы. Только сейчас увидел что нужны не стрелки, а кнопки с буковками и с зажатым шифтом. Исправил