<!--CodeS-->
procedure proc_Chatting_WriteWebBrower(Web: TWebBrowser; var rChatInfo : TChatClientInfo; s_Msg: WideString; b_SelfMsg : boolean = false);
var
  bAutoScroll : Boolean;
  OleDocument : OleVariant;
  tmpStr : WideString;
begin
  try
    OleDocument := Web.OleObject.Document;
    try
      bAutoScroll := (OleDocument.Body.ScrollHeight <= OleDocument.Body.ClientHeight) or //스크롤이 없거나
                     (OleDocument.Body.ScrollTop     = OleDocument.Body.ScrollHeight - OleDocument.Body.ClientHeight); //제일 밑에 있을 때
    except
      if rChatInfo.b_RoomCreated then begin
        Web.Silent := false;
        proc_Chatting_Init(Web, rChatInfo);
        exit;
      end;
    end;


    try
      //OleDocument.Body.innerHTML := OleDocument.Body.innerHTML + s_Msg;
      OleDocument.getElementById(_ChatHtml_SpanID).innerHTML := OleDocument.getElementById(_ChatHtml_SpanID).innerHTML + s_Msg;
    except

    end;


    if rChatInfo.b_ShowGreeting and (s_Msg = rChatInfo.s_ShowGreeting) then begin
      rChatInfo.b_ShowGreeting := false;
      rChatInfo.s_ShowGreeting := '';
    end;

    if b_SelfMsg then
    begin
      //OleDocument.Body.ScrollBottom := 0;
      Web.Perform(WM_VSCROLL, SB_BOTTOM, OleDocument.Body.ClientHeight);
      //OleDocument.Body.ScrollTop := OleDocument.Body.ScrollHeight - OleDocument.Body.ClientHeight;
      rChatInfo.b_SelfMsg := False;
    end
    else
    begin
        OleDocument.Body.ScrollTop := OleDocument.Body.ScrollHeight - OleDocument.Body.ClientHeight;
    end;
    //이강석 스크롤 확인
  except
  end;
end;
<!--CodeE-->

if b_SelfMsg then
====>
여기에서 맨 끝으로 내리려고 하는데....안 내려가네요...

이것 저것 바꾸어 봤는데요...안 내려가는데 ㅠㅠ

왜 그러는지 아시는 분 답변 좀 부탁드려요~~