Delphi-Quellcode:
begin
b:=0;
a:=Edit1.text;
for c:=Memo1.lines.count - 1 downto 0 do
if Memo1.lines.strings[c]=a then b:=b+1;
if b > 0 then
Label1.caption:=inttostr(b) + ' mal vorhanden'
else
Label1.caption:='Nicht vorhanden';
Ungetestet, müsste aber funktionieren, wenn ich jetzt im Halbschlaf keinen Fehler gemacht habe.
Du hast in Deinem Beispiel nicht den Inhalt der Zeilen abgefragt sondern nur den Zähler der For-Schleife. Damit kommt bei Dir auch immer nur 1 raus.