Procedure in Procedure aufrufen klappt nicht

[Bjoerk]

Das Wort kann ja in der Zeile auch mehrfach vorkommen. Statt des if also zum Beispiel eine while Schiefe:

Delphi-Quellcode:

    Position := Pos(S, Text);
    while Position > 0 do
    begin
      Inc(Anzahl);
      Delete(Text, Position, Length(S));
      Position := Pos(S, Text);
    end;