Tstringlist Länge ermitteln

[Ajin]

Hallo DP User!

Ich wollte mir eine Funktion schreiben welche mir die Anzahl bestimmer Wörter in einer Textdatei Zeile ausgibt.

So sieht die Zeile der Datei aus:

Ich bin ein kleiner Mensch. Ein Apfel ist kein Mensch. Ein Hund ist auch kein Mensch

Ich möchte jetzt das Wort Mensch zählen.

Delphi-Quellcode:

////////////////////////////////////////////////////////////////////////////////
////
////  Anzahl Mensch im textfile
////
function anzahl_mensch: Integer;
var
 s: Tstrings;
 i, laenge, count, pos_mensch: integer;
Begin
 s := TStringList.Create;
 count := 0;
  try
   s.loadfromFile(meine_datei);
   //stringlist s nach Mensch durchsuchen
   for i := 0 to s.Count[i] - 1 do
   begin
      //--->> Position des gewünschten strings suchen
      pos_mensch := pos('Mensch', s.strings[i]);
      //--->> Position von Mensch gefunden
      if pos_mensch <> 0 then
      begin
        inc(count);
      end;
   end;//for
  Result := Count;
  Finally
   s.Free;
  End;
End;

s.count = die Anzahl der Zeilen. Da es nur eine Zeile ist kommt auch nur 1 x Mensch als result.
Ich möchte nun aber nicht die Anzahl der Zeilen durchsuchen, sondern die gesamte Zeile.
Ich dachte an die length Eigenschaft der Stringfunktionen aber das geht mit der Stringlist nicht.

Ich hab bestimmt irgendwas einfaches vergessen...