[goodvin1709]

Спасибо скачал 3.5.33.166
и дописал в скрипт
procedure Disconect;
begin
pck:='';
NoCloseServerAfterClientDisconnect;
NoCloseClientAfterServerDisconnect;
buf:=#$7E;
SendToClientex(charname);
end;

и в главный бегин вставил

if FromClient and (connectname=charname) then
case pck[1] of
#$09: Disconect;
end;
Вроде нормально почало пахать )

Добавлено через 1 минуту
Тема закрыта)