ты реально издеваешься...
http://www.z-oleg.com/secur/avz_doc/...?script_tf.htm
var
panelki: tstringlist;
procedure init;
begin
panelki := tstringlist.create;
panelki.add('пакет к которому можно получить доступ по panelki.strings[0]');
panelki.add('пакет к которому можно получить доступ по panelki.strings[1]');
panelki.add('пакет к которому можно получить доступ по panelki.strings[2]');
.....
end;
и вообще.
panelki:array [1..20] of string;
не работает чтоле ?