Entonces la solución la has indicado tu ya previamente. Con bucles tipo For.
Código Delphi
[-]For A1 = 1 to 100 do begin
For A2 = A1 + 1 to 100 do begin
For A3 = A2 + 1 to 100 do begin
For A4 = A3 + 1 to 100 do begin
For A5 = A4 + 1 to 100 do begin
For A6 = A5 + 1 to 100 do begin
For A7 = A6 + 1 to 100 do begin
For A8 = A7 + 1 to 100 do begin
For A9 = A8 + 1 to 100 do begin
For A10 = A9 + 1 to 100 do begin
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;