[supernewbie]

var
panelki:array [1..20] of tstringlist;

procedure scanpanelki;
begin
for i:=1 to 20 do
if ConnectName=NamesArray[i] then
begin
pck:=panelki[i];
end;
end;

ругается(

Добавлено через 45 секунд
PSS на строку pck:=panelki[i];