массив с пакетами

[supernewbie]

procedure scanpaneli;
begin
  for i:=1 to 20 do //после выполнения этого цикла i будет равен 20
    if ConnectName=NamesArray[i] then
    begin
      paneli[i]:=pck; 
      break; //<-fix. вот этого тут явно нехватало.
    end;
end;

begin
  if FromServer and (pck[1]=#$45) then scanpaneli;

  if [условие]  then
  begin
    buf:=paneli[i]; //ты уверен что при I = 20 ты обратишься к нужной ячейке ? не.. скорей всего ты обратишся в ячейке по которой лежит пустая строка. символом окончания строки - #0 вот откуда у тебя пакет die (id=#0) береццо
    SendToClientEx(Name);
  end;
end.