EOutOfMemory, programm bricht bei einfacher schleife ab !?

[shareholder]

mein code

Delphi-Quellcode:

  s := 'aaa'; // startstring
  pos := 0; // letzter buchstabe

  for i := 1 to High(ABC) do begin
    for j := 1 to High(ABC) do begin
      // letzten (oder pos) buchstaben ersetzen
      s[(Length(s)-pos)] := ABC[j];
      // neuen string in memo eintragen
      Memo1.Lines.Add(s);
      // wenn letzter buchstabe höchster string in array index erhöhen
      if s[Length(s)] = ABC[High(ABC)] then inc(pos);
    end;
  end;

[edit=sakura] Das Bild ist im Anhang - Du musst es nicht extra posten Mfg, sakura[/edit]