Problem mit IDvCard und Stringlist

[Grolle]

Hallo,
ich bekomme immer den Fehler "Listenindex überschreitet das Maximum (1)" mit folgendem Quelltext:

Delphi-Quellcode:

      sl := TstringList.Create;
      sl.LoadFromFile(OpenDialog1.Filename);
      vcard := TIdVcard.Create(self);
      vcard.ReadFromTStrings(sl);
      DBEdit3.Text := vcard.FullName.SurName;
      DBEdit4.Text := vcard.FullName.FirstName;
      DBEdit5.Text := vcard.Addresses[0].StreetAddress;
      DBEdit6.Text := vcard.Addresses[0].PostalCode;
      DBEdit7.Text := vcard.Addresses[0].Locality;
      DBEdit8.Text := vcard.Addresses[0].Nation;
      DBEdit9.Text := vcard.Telephones[0].Number;
      DBEdit11.Text := vcard.Telephones[1].Number;
      DBEdit12.Text := vcard.Telephones[2].Number;
      DBEdit13.Text := vcard.EMailAddresses[0].Address;
      DateTimePicker1.DateTime := vcard.BirthDay;
      AdsTable1.Post;
      vcard.Free;
      sl.Free;

Wo ist da der Fehler?
Viele Grüße...