delphi Код:
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.