in Tabellenreihe Zahlen auf Anzahl prüfen

[HannosG]

Womit hast du die Tabellenreihe erstellt?

Delphi-Quellcode:

Anzahl:=0;
For I:=1 to 7 do If Tabellenreihenarray[I]=DieZahl then
  begin
  Inc(Anzahl); //Anzahl um 1 erhöhen
  ShowMessage('Treffer');
  end;

Vielleicht etwa so?