n = 1;x = {Null}; Dynamic[Grid[ Table[With[{i = i}, {i, InputField[ Dynamic[x[[i]], (If[NumericQ[#], x[[i]] = #; AppendTo[x, Null]; n++]) &], ImageSize -> 50]}], {i, n}]]]

I'm trying to create a form to input lists. If you enter a value in the empty InputField, then appears a new InputField for the next value. Is it possible, that the cursor is automaically in this new InputField, so that you can start entering the new value without choosing the InutField with your mouse?

Greetings from Switzerland.