보시기 힘드시겠지만 델파이 소스에 이렇게 나왔더라고요.
msg를 어떻게 바꾸는지 도통 모르겠네요. 밑에 소스를 빌더로
바꿀려면 어떻게 해야될까요?
procedure TForm2.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
var
    msg : String;
    msglist : TStringList;
    i :  integer;
begin
    msglist := TStringList.Create;
    msg := ClientSocket1.Socket.ReceiveText;
    buff := buff + msg;
    Ujlib.explodeList('|@#E|', buff, msglist);
    if msglist.Count > 0 then
    begin
        for i := 0 to msgList.Count - 1 do
        begin
            if trim(msgList.Strings[i]) <> '' then
            begin
                if msgprocess(msglist.Strings[i]) then
                begin
                    buff := copy(buff,strlen(PChar(msglist.Strings[i]))+6,strlen(PChar(buff))-strlen(PChar(msglist.Strings[i]))+5);
                end;
            end;
        end;
    end;
    msglist.Free;

    WebBrowser1.OleObject.Document.Body.doScroll('Bottom');
end;