Variablen kombinieren

[Spike2k3]

Moin...oder eher N'Abend

Ich hab mal ne Frage...
Also ich hab ne Schleife gemacht und will nun darin die Variablen auch "erhöhen".
Hier ist mal der Quelltext, damit ihr seht wovon ich rede:

Delphi-Quellcode:

procedure BinTonne;
var q,an1,an2,an3,an4,an5,an6,an7,an8,an9,an10,an11,a,b,o,k,i,j,n,r,len:longint;
    s:string;
begin
a:=0;
q:=0;
for b:=1 to 11 do begin
s:=Form1.Memo1.Lines.Strings[a];
a:=+1;
q:=+1; // q für an wird erhöht
len:=length(s);
r:=0;
o:=1;
for i:=len-1 downto 0 do
begin
n:=strtoint(s[o]);
j:=1;
for k:=0 to i-1 do j:=J*2;
r:=r+(n*j);
inc(o);
end;
an+q:=r;       //Hier soll an von an1 bis an11 hochgehen, wie kann ihc das machen??????
end;
Form1.Label6.Caption:=inttostr(an1+ an2+ an3);
end;

Hoffe ihr könnt mir helfen...