1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

//Glückwunsch!
 //An dieser Position wurden alle deine Zeilen abgearbeitet und auf Treffer überprüft.

 //Zur Ausgabe:
 //Einfach über deine Trefferliste meineTreffer eine Schleifen laufen lassen und den Wert ausgeben, der dahintersteht.
 for i:= low(meineTreffer) to high(meineTreffer) do
 begin
  //Memo leeren
  Memo2.lines.clear;
  //Ausgabe
  Memo2.lines.add('Zeile ' + inttostr(i+1) + ': ' + IntToStr(meineTreffer[i]) + ' Treffer');

  //Warum i+1 bei der Zeile?
  //Nun, du beginnst die Zeilen bei 1 zu zählen, Delphi bei 0 ;-)
 end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:

function checkVorkommen(Zeile, Zahl: String): Boolean;
var _pos: Integer; //Hier speichern wir die Position unseres Fundes
    _len: Integer; //Länge der Zeile (in Zeichen)
begin;
 try
  //Rückgabe undefiniert (false)
  result:= false;
  
  _pos:= pos(Zahl, Zeile);
  _len:= length(Zeile);

 case _pos of
  1:     begin
          //Zeichen an erster Stelle, nachfolgendes Zeichen muss Leerzeichen sein, verschoben und lenght(Zahl);
          //Natürlich darf Zeile[_pos+length(Zahl)] die length(Zeile) nicht übersteigen
          if (_pos+length(Zahl)) <= _len then
          begin 
           //Hier auf Leerzeichen prüfen
           if not (Zeile[_pos+length(Zahl)] = #32) then
            exit; //Wegwerfen, da ungültig
          end;
         end;
  else
  begin
   //Und hier der Spezialfall: Mitten in der Zeichenkette

   if _pos-1 < 1 then
    exit; //String[0] geht nicht

   if _pos = _len then
   begin
    //hier müssen wir nur einen Schritt nach "links" gehen und schon muss da ein Leerzeichen sein
    if Zeile[_pos-1] <> #32 then
     exit; //Doch keins -> Abbruch
   end;

   if _pos+length(Zahl) <= _len then
   begin
    //Hier schießen wir über kein Ziel hinaus
    if (Zeile[_pos-1] <> #32) or
       (Zeile[_pos+length(Zahl)] <> #32) then
     exit; //Mittendrin, aber links und rechts kein Leerzeichen
   end
   else
   begin
    //Hier nur davor
    if Zeile[_pos-1] <> #32 then
     exit;
   end;
  end;
 end;
  

  //Verarbeitung erfolgreich
  result:= true;
 except
  on e: exception do
   messagebox(application.handle, pchar(e.message), pchar('Fehler'), MB_IconERROR);
 end;
end;					

1:
2:

 if checkVorkommen(Zeile, def_a) then
 inc(Treffer);