Для тех, кто шарит в программировании

Есть алгоритм заполнения символами любого порядка
Нужно сделать так, чтобы при завершении заполнения заданного порядка перешел на заполнение следующего порядка и так далее до максимального

Язык программирования - Delphi

Вот фрагмент кода:

function sNext(const sPrev, sChar: string): string;
var
i, j, k: integer;
begin;
Result:=sPrev;
k:=length(sChar);
if k<=0 then exit;
i:=length(sPrev);
while i>0 do begin;
j:=pos(sPrev,sChar);
if j:=sChar[j+1];
break;
end;
Result:=sChar[1];
dec(i);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
lastchar: char; //для последнего символа в алфавите
c, s, k: string; //для строк 1.алфавит перебора 2. маска 3. для проверки
i:integer; //для счетчика
j:integer; //для кол-ва символов алфавита
max,min:integer; //для максимального и минимального количества символов
begin;
max:=SpinEdit2.Value; //максимум
min:=SpinEdit1.Value; //минимум
memo1.Clear;
c:='01';
//c:='0123456789[];,./!@#$%^&*()_+-=:"<>?\|`~qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM'; //Сам алфавит перебора
j:=length(c); //длина алфавита
lastchar:=c[j]; //последний символ алфавита
//

// Проверка минимального количества символов

if (length(s)

короче мне нужно сделать так, чтобы вывод в мемо имел вид:

0
...
9
01
...
99
001
...
9...9 //тут мой заданный порядок

Все, спасибо, уже сделал
Кому нужно, обращайтесь в личку