Dann hast du 2 Ansatzmöglichkeiten:
1. Abfrage direkt der Labels:
Delphi-Quellcode:
Anzahl := 0;
if label1.caption = 'x' then Inc(Anzahl);
if label2.caption = 'x' then Inc(Anzahl);
if label3.caption = 'x' then Inc(Anzahl);
if label4.caption = 'x' then Inc(Anzahl);
if label5.caption = 'x' then Inc(Anzahl);
if label6.caption = 'x' then Inc(Anzahl);
if label7.caption = 'x' then Inc(Anzahl);
...
Edit1.Text := IntToStr(Anzahl);
2. Ansatz
du fügst bei dem Text := 'x' vor das if ein
Dec(Anzahl) und bei dem Setzen des Textes auf 'x' ein Inc(Anzahl) hinzu. Am Ende dann wieder ein Edit1.Text := IntToStr(Anzahl);
Ich würde bei einer solch einer solch einfachen Sache eher auf Ansatz 1 zurückgreifen, da sie übersichtlicher ist. Vor allem must du bei Ansatz 2 die Anzahl immer genau zurücksetzen wenn das Formular initialisiert wird, was zu unschönen Fehlern führen kann, falls man sich da vertut.