Кружок нубов(Вопрос-Ответ)

[Breadfan]

const
Name='Char'; //в начале скрипта, в блоке констант, объявляешь имя
.............
SendtoserverEx(Name); // и впоследствии отправляешь пакеты именно на соединение с таким именем
.............

а вот такие вещи:

if FromServer and (pck[1]=#$4A) and (pck[6]=#$11) then begin   //блок херо чата
     pck:='';
  end;

поправь на такое:

if FromServer and (ConnectName=Name) and (pck[1]=#$4A) and (pck[6]=#$11) then begin   //блок херо чата
     pck:='';
  end;