Dans l'evenement OnKeyDon du form


const pas = 10;

    case Key of
      vk_UP    : Self.Top := Self.Top - pas;
      vk_DOWN  : Self.Top := Self.Top + pas;
      vk_LEFT  : Self.Left := Self.Left - pas;
      vk_RIGHT : Self.Left := Self.Left + pas;
    end;