type
  TMyArray= array of integer;

function MyNext(var Point, Bound: TMyArray): boolean;
var
  i: integer;
begin;
  for i:=Length(Point)-1 downto 0 do begin;
    if Point[i]<Bound[i] then begin;
      inc(Point[i]);
      Result:=true;
      exit;
      end
    else Point[i]:=0;
    end;
  Result:=false;
  end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Point, Bound: TMyArray;
begin;
  SetLength(Point,5);
  Point[0]:=0;
  Point[1]:=0;
  Point[2]:=0;
  Point[3]:=0;
  Point[4]:=0;

  SetLength(Bound,5);
  Bound[0]:=0;
  Bound[1]:=2;
  Bound[2]:=1;
  Bound[3]:=4;
  Bound[4]:=0;

  repeat;
    Memo1.Lines.Add(Format('%d%d%d%d%d',[Point[0],Point[1],Point[2],Point[3],Point[4]]));
    until not MyNext(Point,Bound);
  end;