a[1-100]b[1-100]c[1-100]

procedure TForm1.Button1Click(Sender: TObject);
var
 fullstrnum: integer; //Общее число строк
 i,ii,j,ostatok: integer;
 firststring: string; //Шаблон 1
 secondstring: string; //Шаблон 2
 counters: integer; //Число счетчиков
 firstconst: array of string; //Массив констант 1
 secondconst: array of string; //Массив констант 2
 minstring: array of string; //Массив минимумов в строковом виде
 maxstring: array of string; //Массив максимумов в строковом виде
 minnum: array of integer; //Массив минимумов в целочисленном виде
 maxnum: array of integer; //Массив максимумов в целочисленном виде
 nownum: array of integer; //Массив текущих значений счетчиков при переборе
 firstitem: string; //Строка 1
 seconditem: string; //Строка 2
begin
 //Обрабатываем данные
 firststring:=Edit1.Text;
 secondstring:=Edit2.Text;
 //Разбиение шаблонов 1 и 2 на константы и счетчики
 counters:=-1;
 SetLength(firstconst,1);
 SetLength(secondconst,1);
 SetLength(minstring,1);
 SetLength(maxstring,1);
 SetLength(minnum,1);
 SetLength(maxnum,1);
 ii:=1;
 //Разбиваем 1 шаблон
 while ii<=length(firststring) do begin //Перебираем строку
   if firststring[ii]='['then begin //Найден счетчик
     ii:=ii+1; //Собираем минимум
     counters:=counters+1; //Увеличиваем счетчик счетчиков
     SetLength(firstconst,(Length(firstconst)+1)); //Увеличиваем массивы минимумов и максимумов
     firstconst[counters+1]:='';
     SetLength(minstring,(Length(minstring)+1));
     SetLength(maxstring,(Length(maxstring)+1));
     SetLength(minnum,(Length(minnum)+1));
     SetLength(maxnum,(Length(maxnum)+1));
     while firststring[ii]<>'-' do begin //Пока не встретили '-' собираем число
       minstring[counters]:=minstring[counters]+firststring[ii];
       ii:=ii+1;
     end;
     minnum[counters]:=StrToInt(minstring[counters]); //Получаем минимум в виде числа
     ii:=ii+1; //Пропускаем "-"
     while firststring[ii]<>']' do begin //Пока не встретили ']' собираем максимум
       maxstring[counters]:=maxstring[counters]+firststring[ii];
       ii:=ii+1;
     end;
     maxnum[counters]:=StrToInt(maxstring[counters]); //Получаем минимум в виде числа
     ii:=ii+1; //Переходим к след. символу в константе
   end else begin //Обрабатываем константу
     firstconst[counters+1]:=firstconst[counters+1]+firststring[ii];
     ii:=ii+1;
   end;
 end;
 //Разбиваем 2 шаблон
 SetLength(secondconst,(Length(firstconst)));
 ii:=1;
 j:=0;
 secondconst[j]:='';
 while ii<=length(secondstring) do begin //Перебираем строку
   if secondstring[ii]<>'[' then begin
     secondconst[j]:=secondconst[j]+secondstring[ii];
     ii:=ii+1;
   end
   else begin
     j:=j+1;
     secondconst[j]:='';
     ii:=ii+2;
   end;
 end;

 //Начинаем обрабатывать сами строки
 //Выясняем полное число всех строк
 fullstrnum:=1;
 for i:=0 to counters do fullstrnum:=fullstrnum*(maxnum[i]-minnum[i]+1);
 //Генерируем и обрабатываем все строки
 SetLength(nownum,(counters+1));
 for i:=0 to (fullstrnum-1) do begin
   firstitem:='';
   seconditem:='';
   //Разбиваем текущий номер строки на разряды (значения счетчиком)
   ostatok:=i;
   for ii:=0 to counters do begin
     nownum[ii]:=ostatok;
     for j:=(ii+1) to counters do nownum[ii]:=trunc(nownum[ii]/(maxnum[j]-minnum[j]+1));
     for j:=(ii+1) to counters do ostatok:=ostatok-nownum[ii]*(maxnum[j]-minnum[j]+1);
   end;
   //Собираем строку из констант и счетчиков
   for ii:=0 to counters do firstitem:=firstitem+firstconst[ii]+IntToStr(nownum[ii]+minnum[ii]);
   firstitem:=firstitem+firstconst[counters+1];
   for ii:=0 to counters do seconditem:=seconditem+secondconst[ii]+IntToStr(nownum[ii]+minnum[ii]);
   seconditem:=seconditem+secondconst[counters+1];

   //Строки получены. Можно с ними работать (здесь просто вывод в memo).
   Memo1.Lines.Add(firstitem));
   Memo1.Lines.Add(seconditem));
 end;
end;