Procedure in Procedure aufrufen klappt nicht

[Popov]

Eigentlich kein Fehler, aber ich würde statt

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
...
    LAnzahl := 0;

den Punkt so lösen

Delphi-Quellcode:

procedure String_Zaehler(
  var T : Textfile; // Datei, in der gesucht werden soll (als Textfile-Referenz)
   s : string; // Suchtext
   var Anz : Integer // Anzahl der gefundenen Stellen
 );

var
  position,laenge:integer;
  text:string;

begin
Anz := 0; //<<< HIER auf Null setzten <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
while not eof(T) do

Die Lösung von dir klappt zwar auch, aber da muss man vor der Nutzung der Prozedur zuerst die Variable löschen. Und das ist eine mögliche Fehlerquelle für die Zukunft. Und so erledigt man das Problem gleich in der Prozedur mit.