Zahlenkombinationen generieren

[Georg25]

Code:

procedure TForm_Main.Generator;
var
  stellen, max, i, j, k : Integer;
  pos : Array of Integer;
  s : String;
begin
  stellen := 3;
  max:= 15;
  SetLength(pos, stellen);

   k := StrToInt(FloatToStr(power(stellen,max)));

  for i:= 0 To stellen-1 do
    pos[i]:=1;

  for i:= 1 to k do begin
      s:='';
      Inc(pos[0]);

      for j:=0 To stellen -1 do
        if pos[j]=max+1 then begin
            pos[j]:=1;
            Inc(pos[j+1]);
          end;


      for j:=0 To stellen-1  do
        s:=s+IntToStr(pos[j]);
      Memo_Output.Lines.Add(s);
    end;
end;

Ich hab nun diesen Code benutzt, allerdings spuckt er am Ende immer eine Fehlermeldung aus:
Exception der Klasse "EInvalidPointer", "ungültige Zeigeroperation"

http://www.abload.de/img/errorzumv.png

Ich hab einiges versucht, aber irgendwie komme ich nicht weiter, hat wer noch eine Idee?

mfg