Sover jeg - Array of Tedit

var
  frmAdresse: TfrmAdresse;
  Name: array[0..10] of TEdit;
  Tlf: array[0..10] of TEdit;
  vName: array[0..10] of String;
  vTlf: array[0..10] of String;
implementation

{$R *.DFM}

procedure TfrmAdresse.Button1Click(Sender: TObject);
var
i: Integer;
begin
for i := 1 to 10 do
  begin
    vName[i] := Name[i].Text;
    vTlf[i]  := Tlf[i].Text;
  end;
end;

Hvorfor kan det ikke lade sig gøre ?