[alexteam]

я про то что

if (FromServer) then 
               if (pck[1]=#$4A) then 
                    if (ReadD(6) = 2) then 
                    begin
                         //тут вылетать не может, ибо мы только что получили пакет от сервера, т.е. сокет еще существует.
                         buf:=#$1B;
                         WriteD(12);
                         SendToServerEx(CHAR_NAME);
                    end;

          if (FromClient) then
                if (pck[1]=#$6F) then 
                begin
                    //аналогично предыдущему но наоборот.
                     pck:='';
                     buf:=#$7E;
                     SendToClientEx(CHAR_NAME);
                end;

если конечно на момент обработки пакета пх одна из сторон была отключена. вероятность этого очень мизерна. да и если бы такое произошло. то ошибка бы высветилась единожды.
т.е. либо существуют места с "произвольной" отсылкой пакета на сервер при приходе от клиента либо с отсылкой на клиент при приходе от сервера.
либо глюк сокетного движка в ревизии 83, честно, с этим, разбираться не особо хочеться т.к. единожды уже пришлось переписывать его практически полностью.