Hilfe! Probleme beim Erstellen eines Telefonbuchs

[DeddyH]

Oder etwas anders:

Delphi-Quellcode:

var A1: integer = 0; //globale Variablen vorbelegen (zum besseren Verständnis)
    A2: integer = 0;

...

  if A1 = 10 {oder besser High(dasatz)} then
    ShowMessage('Letzter Datensatz erreicht!')
  else
  begin
    A1:=A1+1;
    dasatz[A1].Name:=Edit1.Text;
    dasatz[A1].Vorname:=Edit2.Text;
    dasatz[A1].Telefon:=Edit3.Text;
  end;