Mange loops inden i hinanden

type
  minstreng = String[8];
...

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Array[1..8] of byte;
  j: integer;
  f: file of minstreng;
  Temp: minstreng;
begin
AssignFile(f,'talfil.dat');
Rewrite(f);

for i[1]:=0 to 1 do
for i[2]:=0 to 1 do
for i[3]:=0 to 1 do
for i[4]:=0 to 1 do
for i[5]:=0 to 1 do
for i[6]:=0 to 1 do
for i[7]:=0 to 1 do
for i[8]:=0 to 1 do
  begin
  Temp:= IntToStr(i[1]);
  for i:=2 to 8 do
    Temp:= Temp + IntToStr(i[j]);
  Write(f,temp);
  end;

Close(f);
end;

Sådan et program ville jeg gerne have lavet! Altså det skal skrive alle muligheder for en byte. Men det kan man ikke, fordi Delphi ikke vil køre et loop med en arrayværdi (tror jeg da). Det synes jeg ikke er ret smart, fordi alternativet bliver at jeg skal lave 8 i-variabler. Og i blokken skal jeg skrive Temp:= IntToStr(i1)+IntToStr(i2)...+IntToStr(i8);

Det er måske lige til at overleve i dette program. MEn jeg skal bruge denne metode til et andet program (der giver lidt mere mening :] ) noget hvor den mulighed ikke dur.

Jeg tænkte om der var en anden måde at ordne dette problem på?

VH Velle