[alexteam]

надуем интерпритатор.
Не пытайтесь повторять это дома.

procedure scanpanelki; //ну и имя у функции
var
  i, ind : integer;
begin
  ind := GetArrayIndexByName(ConnectName);
  if ind >= 0 then
    begin
      panelki[ind] := '';
      for i := 1 to length(pck) do
        panelki[ind] := panelki[ind] + chr(ReadC(i));
      say('сосканил панельку у '+ConnectName+'. '+strtohex(panelki[ind]));
    end
  else
    say('не нашел имя');
end;