Хочу отсоеденить клиент, пишет ошибку 10083

[metalFan]

27.05.2011 20:44:40 Перехвачен коннект на yandex.ru:7777
27.05.2011 20:44:40 Thread Start: поток сервера Thread[0].SH 488/2380 SSock=484
27.05.2011 20:44:40 Thread Start: поток клиента Thread[0].CH 464/5424 CSock=540
27.05.2011 20:44:44 Считываем имя соединения...
27.05.2011 20:44:44 Имя соединения:JackSparrow
27.05.2011 20:47:16 Disconnect: отвалился сервер Thread[0].SH 488/2380 SSock=484
27.05.2011 20:47:17 На сокете: 484 ошибка: 10053 Программа на вашем хост-компьютере разорвала установленное подключение
27.05.2011 20:47:18 На сокете: 484 ошибка: 10038 Сделана попытка выполнить операцию на объекте, не являющемся сокетом
27.05.2011 20:47:18 На сокете: 484 ошибка: 10038 Сделана попытка выполнить операцию на объекте, не являющемся сокетом

...
...
...
на каждом входящем пакете пишет это
Сделана попытка выполнить операцию на объекте, не являющемся сокетомчерез некоторое время пакетхак умирает с ошибкой или зависанием.
Как отсоединить клиент от сервера?
вот этот скрипт хочу оставить работать, пытался запихать туда nlobp овские советы по нетпингу и его вызовы NoFreeOnDisconnect - не работает.

[metalFan]

var curpos: byte;
TITLE_DATA2: array [0..16] of string;

const
jokes_max = 99;
CName = 'JackSparrow';

var
f: TStringList;
jokes: array [1..jokes_max] of String;
jokes_real: integer;
IDs: array [1..2000] of cardinal;
Names: array [1..2000] of String;
count: Integer;
MyID: Cardinal;
MyName: String;
m: TMemo;
t: TTimer;

InTimer: Boolean;

procedure OnDisconnect;
begin
NoFreeOnServerDisconnect;
NoFreeOnClientDisconnect;

end;

procedure OnTimerProc;
begin
InTimer := true;
buf := #$55;
WriteS(MyName);
WriteS(TITLE_DATA2[curpos]);
SendToServerEx(CName);

curpos := curpos + 1;
if curpos > 16 then curpos := 0;

InTimer := false;
end;

procedure Init;

var i: byte;
begin
randomize;
count := 0;

f := TStringList.Create;
jokes_real := 0;
for i := 1 to jokes_max do
begin
try
f.LoadFromFile('D:\games\Lineage II\l2phx\bash\' + IntToStr(i) + '.txt');
jokes_real := jokes_real + 1;
except
end;
jokes[jokes_real] := f.Text;
end;
f.free;

TITLE_DATA2[0] := '';
TITLE_DATA2[1] := '';
TITLE_DATA2[2] := '';
TITLE_DATA2[3] := '';
TITLE_DATA2[4] := '';
TITLE_DATA2[5] := '';
TITLE_DATA2[6] := '';
TITLE_DATA2[7] := '';
TITLE_DATA2[8] := '';
TITLE_DATA2[9] := '';
TITLE_DATA2[10] := '';
TITLE_DATA2[11] := '';
TITLE_DATA2[12] := '';
TITLE_DATA2[13] := '';
TITLE_DATA2[14] := '';
TITLE_DATA2[15] := '';
TITLE_DATA2[16] := '';

curpos := 0;

t := TTimer.Create(nil);
t.Enabled := false;
t.Interval := 2000;
t.OnTimer := @OnTimerProc;

ShowTab;

m:=TMemo.Create(UserTab);
m.parent:=UserTab;
m.align:=alClient;
m.ReadOnly:=true;
m.ScrollBars:=ssBoth;
m.lines.add('Àíåêäîòîâ çàãðóæåíî: ' + inttostr(jokes_real));
end;

procedure Free;
begin
NoFreeOnServerDisconnect;
NoFreeOnClientDisconnect;


m.Free;
HideTab;

t.OnTimer := nil;
t.Enabled := false;
t.Interval := 0;
t.Free;
end;

function FindPlayer(ObjID: cardinal): integer;
var k: cardinal;
begin
result := -1;
if Count > 0 then
for k := 1 to Count do
if IDs[k] = ObjID then
begin
result := k;
break
end;
end;

var
i, k: integer;
objid: cardinal;
name: string;
begin
{if (ConnectName = CName) then }
if FromServer then
case pck[1] of
#$64:
begin
i := 2;
if ReadD(i) = 380 then {S1_PURCHASED_S3_S2_s}
begin
i := i + 4*2;
name := ReadS(i);
if (name = '') then
begin
// âíåñåì â ëîã (blacklist)
m.Lines.Add(TimeToStr(now)+': '+name+' purchased (BLACKLISTED)');
end
else
begin
while (InTimer = true) do i := i;

buf := #$CC;
i := int(random * jokes_real) + 1;
WriteS(jokes[i]);
WriteS(name);
SendToServer{Ex(CName)};

if (Length(m.Lines.Text) > 60000) then m.Lines.Text := '<cleared>';
// âíåñåì â ëîã
m.Lines.Add(TimeToStr(now)+': '+name+' purchased');
m.Lines.Add('> ' + jokes[i]);
end;
end
end;

#$03: // CharInfo
begin
i := 4 + 4 * 4 - 2;
objid := ReadD(i);

i := FindPlayer(ObjID);

if i = -1 then
begin
i := 4 + 4 * 5 - 2;
name := ReadS(i);
// blacklist
if (name = '') then
begin
// (none)
end
else begin
// äîáàâëåíèå
count := count + 1;
IDs[count] := ObjID;
Names[count] := name;






//m.Lines.Add(IntToStr(count) + ' - ' + Format('%x', [ObjId])+' = '+ Names[count]);
end;
end;
end;

#$04: //UserInfo
begin
i := 2 + 4*4;
MyID := ReadD(i);
MyName := ReadS(i);
t.Enabled := false;
end;


#$12: // ObjectDelete
begin
i := 2;
objid := ReadD(i);

i := FindPlayer(objid);

if i <> -1 then
begin
IDs[i] := IDs[count];
Names[i] := Names[count];
count := count - 1;
end
end;

#$29: //TargetSeleted
begin
i := 2;
objid := ReadD(i);

if ReadD(i) <> MyID then exit;

i := FindPlayer(objid);

if i <> -1 then
begin
while (InTimer = true) do i := i;

buf := #$CC;
WriteS('купи стрелу');
WriteS(names[i]);
SendToServer{Ex(CName)};

m.Lines.Add(TimeToStr(now)+': '+names[i]);
end
end;
end;


if FromClient then
case pck[1] of
#$09: //Logout
begin
pck := '';
buf := #$7E;
SendToClient{Ex(CName)};
end;

end;




end.

[Breadfan]

if (pck[1]=#$09) and FromClient and (ConnectName=Name) then begin
pck:='';
NoCloseServerAfterClientDisconnect;
NoCloseClientAfterServerDisconnect;
buf:=#$7E;
SendToClientex(name);
end;