Клиент-серверная рисовалка, найти ошибку в коде

void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
{
    if (can == true) // Mouse Down ?
    {
        if (connected == true)
        {
            s->Add("{\"left\":"+IntToStr(X)+", \"top\":"+IntToStr(Y)+", \"width\":"+this->__W__+"}\n"); //width = толщина кисти 
        }
    }
}

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    WideString buff;
    for (int i = 0; i < s->Count; i++)
    {
        if (s->operator [](i).IsEmpty())    continue;
        buff += s->operator [](i)+"\n";
        s->Delete(i);
    }
    if (connected && buff.IsEmpty() == false)
        this->Sock->Socket->SendText(buff);
    buff = "";
}

void __fastcall TForm1::SockRead(TObject *Sender, TCustomWinSocket *Socket)
{
    WideString msg = Socket->ReceiveText();
    if (msg.IsEmpty())  return;
    int _X__;
    int _Y__;
    int _W__;
    bes->Delimiter = '\n';
    bes->StrictDelimiter = true;
    bes->DelimitedText = msg;
    for (int i = 0; i < bes->Count; i++)
    {
        TJSONObject *jObj = static_cast<TJSONObject*>(TJSONObject::ParseJSONValue(bes->operator [](i)));
        if (jObj->Get("left")->JsonValue->Value() == "CLEAR")   {InvalidateRect ( this->Handle, NULL, True );continue;}
        _X__ = StrToInt(jObj->Get("left")->JsonValue->Value());
        _Y__ = StrToInt(jObj->Get("top")->JsonValue->Value());
        _W__ = StrToInt(jObj->Get("width")->JsonValue->Value());
        this->Label3->Caption = "Онлайн: "+jObj->Get("online")->JsonValue->Value();
        delete jObj;
 
        this->Canvas->Pen->Width = _W__;
        this->Canvas->Pen->Color = clGreen;
        this->Canvas->MoveTo(_X__,_Y__);
        this->Canvas->LineTo(_X__,_Y__);
        bes->Delete(i);
    }
}

char *value = "1";
setsockopt( this->Sock->Socket->SocketHandle, IPPROTO_TCP, TCP_NODELAY, value, sizeof(value) );