1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

s := '';
a := ' ';
z := 0;
if Texte[i]<>'' then begin
  a := Texte[i][z];
  while a <> ' ' do begin
    INC(z);
    a := Texte[i][z]; // <------ hier springt der Debugger hin :(
    s := s + a;
  end;
{...}					

1:
2:
3:
4:
5:

while a <> ' ' do begin  
    INC(z);  
    a := Texte[i][z]; // <------ hier springt der Debugger hin :(  
    s := s + a;  
  end;					

1:
2:
3:
4:
5:
6:

string: doof
1: a:=d s:=d z=1 //a ist kein leerzeichen also weiter
2: a:=o s:=do z=2 //a ist kein leerzeichen also weiter
3: a:=o s:=doo z=3 //a ist kein leerzeichen also weiter
4: a:=f s:=doof z=4 //ABER das letzte zeichen war ja ein "f" und kein "_"
5: deswegen wird z wieder um eins erhöht und übersteigt damit die länge des string...