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;