Schleifen probleme

[gangs-taas]

so hoffe irh steigt da durch ^^

Delphi-Quellcode:

var
GanzerText : string;
LängeEinesBuchstaben : integer;
Multiplicator : integer;
sTemp1 : string;
sTemp : integer ;
EndVar : Integer;
begin
[...]

   EndVar := (Length(Memo1.Text));  // Variable wann später abgebrochen werden soll
   EndVar := Round(EndVar / LängeEinesbuchstaben);
   sTemp1:= Copy(GanzerText, 1, Length(Memo1.Text));
   sTemp := StrToInt(Copy(sTemp1,1,LängeEinesBuchstaben));
   Multiplicator := 1;
       repeat
       begin
              If (sTemp = StrToInt(Va)) Then   
              begin
                  ZwischenText := ZwischenText + 'a';
                  sTemp1 := Copy(sTemp1,(LängeeinesBuchstaben),(Length(GanzerText)));
                  sTemp := StrToInt(Copy(sTemp1,1,LängeEinesBuchstaben));
                      If ( Length(ZwischenText) = EndVar) Then
                      begin
                          Schalter := 1;
                          break;
                       end;
               end
               Else If (sTemp = StrToInt(Vb)) Then 
               begin
                    ZwischenText := ZwischenText + 'b';
                    sTemp1 := Copy(GanzerText,(LängeeinesBuchstaben),(Length(GanzerText)));
                    sTemp := StrToInt(Copy(sTemp1,1,LängeEinesBuchstaben));
                          If ( Length(ZwischenText) = EndVar) Then
                          begin
                              Schalter := 1;
                              break;
                          end;
               end
               Else If (sTemp = StrToInt(Vz)) Then 
               begin
                   ZwischenText := ZwischenText + 'z';
                   sTemp1 := Copy(GanzerText,(LängeeinesBuchstaben),(Length(GanzerText)));
                   sTemp := StrToInt(Copy(sTemp1,1,LängeEinesBuchstaben));
                         If ( Length(ZwischenText) = EndVar) Then
                         begin
                             Schalter := 1;
                             break;
                         end;
               end;
        LängeEinesBuchstaben := StrToInt(Copy(Edit1.Text,1,1));
        LängeEinesBuchstaben := Multiplicator * LängeEinesBuchstaben +1 ;
        until (Length(ZwischenText) = EndVar) ;
[...]
end;