Hallo Stefan,
du solltest nur auf vorhanden Einträge einer Liste zugreifen:
Delphi-Quellcode:
begin
// ...
with vCard do
begin
if Telephones.Count > 0
then DBEdit9.Text := Telephones[0].Number
else DBEdit9.Text := '';
if Telephones.Count > 1
then DBEdit11.Text := Telephones[1].Number
else DBEdit11.Text := '';
// ...
Grüße vom marabu