Telefonbuch mit listbox

[DeddyH]

OK, kleine Ergänzung:

Delphi-Quellcode:

with Adresse^ do
      begin
        Name := edtName.Text;
        Vorname := edtVorname.Text;
        Telefon := edtTelefon.Text;
        Insert(Telefon,'/',4);
        Anschrift := edtAnschrift.Text;
      end;

Sry, falsch herum, es muss heißen Insert('/',Telefon,4);