void TForm2::ClientSocket1Read(TObject* Sender, TCustomWinSocket* Socket)
{
    String msg;
    TStringList *msglist;
    int i;

    msglist = new TStringList;
    msg = ClientSocket1->Socket->ReceiveText;
    buff = buff + msg;
    Ujlib->explodeList("|@#E|", buff, msglist);
    if (msglist->Count > 0)
    {
        for(i=0; i<msgList->Count; ++i)
        {
            if (Trim(msgList->Strings[i]) != "")
            {
                if (msgprocess(msglist->Strings[i]))
                {
                    buff = copy(buff,strlen(msglist->Strings[i].c_str())+6,strlen(buff.c_str())-strlen(msglist->Strings[i].c_str())+5);
                }
            }
        }
    }
    delete msglist;

    WebBrowser1->OleObject->Document->Body->doScroll("Bottom");
}

아마 이렇게 될걸로 생각하는데  아님 말구~