Порты TClientSocket не освобождаются

{ ... }
 
procedure TFSrv.FormCreate(Sender: TObject);
var
  namesize: dword;
begin
  namesize := Length(hostname);
  GetComputerName(@hostname, namesize);
  Servak.Active := false;
  Servak.ServerType := stNonBlocking;
  Servak.Port := StrToIntDef(PortEdit.Text, 5050);
  Teamer.Enabled := true;
end;
 
procedure TFSrv.FormShow(Sender: TObject);
begin
  sbClrClick(self);
  sbConnClick(self);
end;
 
procedure TFSrv.sbClrClick(Sender: TObject);
var
  compname: string;
begin
  compname := hostname;
  ServLog.Clear;
  ServLog.SelText := DateToStr(Now) + '. Server host: ' + compname + '; Port: ' +  IntToStr(Servak.Port) + '. Press F1 to Help' + #13#10 + #13#10;
end;
 
procedure TFSrv.sbConnClick(Sender: TObject);
begin
  if Servak.Active = false then
  begin
    Servak.Port := StrToIntDef(PortEdit.Text, 5050);
    Servak.Active := true;
    sbClrClick(self);
  end
  else
    Servak.Active := false;
end;
 
{ ... }
 
procedure TFSrv.ServakClientConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
  cbSendTo.Items.Add(Socket.RemoteHost);
  cbSendTo.ItemIndex := cbSendTo.Items.IndexOf(Socket.RemoteHost);
  ServLog.Lines.Add(TimeToStr(Now) + ' > client connected; Host: ' + Socket.RemoteHost +
    ' (' + Socket.RemoteAddress + '); Port: ' + IntToStr(Socket.RemotePort));
end;
 
procedure TFSrv.ServakClientDisconnect(Sender: TObject; Socket: TCustomWinSocket);
var
  item: Integer;
begin
  item := cbSendTo.Items.IndexOf(Socket.RemoteHost);
  cbSendTo.Items.Delete(item);
  ServLog.Lines.Add(TimeToStr(Now) + ' > client ' + Socket.RemoteHost + ' disconnected');
end;

procedure TForm1.conBtnClick(Sender: TObject);
begin
  if Cleent.Active = false then
  begin
    Cleent.ClientType := ctNonBlocking;
    Cleent.Host := Edit1.Text;
    Cleent.Port := StrToInt(Edit3.Text);
    Cleent.Open;
  end
  else
  begin
    Cleent.Socket.Close;
    Cleent.Close;
  end;
end;
 
procedure TForm1.sendBtnClick(Sender: TObject);
begin
  Cleent.Socket.SendText(Inputmemo.Text);
  Sleep(10);
end;
 
procedure TForm1.CleentConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
  ClientLog.Lines.Add(TimeToStr(Now) + ' > Connected to server: ' + Socket.RemoteHost +
    ' (' + Socket.RemoteAddress + '); Port: ' + IntToStr(Socket.RemotePort));
end;
 
procedure TForm1.CleentDisconnect(Sender: TObject; Socket: TCustomWinSocket);
begin
  ClientLog.Lines.Add(TimeToStr(Now) + ' > Disconnected.');
end;
 
procedure TForm1.CleentRead(Sender: TObject; Socket: TCustomWinSocket);
var
  s, tmp: string;
begin
  s := Socket.ReceiveText;
  ClientLog.Lines.Add(TimeToStr(Now) + ' > Message arrived.');
  if s <> '' then
    MessLog.SelText := s + #13#10;
  end;
end;