For loop to iterate between Text Boxes?

Question

I\'ve just started learning Delphi right now and I came across my first hardship :

        procedure TForm1.Button1Click(Sender: TObject);
    var
      A: array[