Witam, mam problem z napisaniem programu, wiem, że kiedyś zrobiłem podobną rzecz, ale teraz już nie pamiętam jak to zrobiłem. Mam takie coś:
var
t: array[1..15] of integer;
a,b: integer;
d:string;
begin
b:=17;
for a:=1 to 7 do
begin
d:='label'+inttostr(b)+'.caption';
t[a]:= StrToInt(d);
b:=b+1
end;
chodzi mi dokładnie o d, tak żeby z każdym zapętlaniem zmieniała się nazwa label'a o +1, uruchamia program, ale jak wlacza tą procedure to jest błąd.