addHTML

var //リネージュ2 RMT
tm : integer; //AION イズラフェル RMT
FDoc : IHTMLDocument2; //AION イズラフェル RMT
FBody : IHTMLElement;
begin
FDoc := (self.Document as IHTMLDocument2);
FBody := (FDoc.body as IHTMLElement);
tm := GetTickCount;

while not Assigned(FBody) do
begin
if (GetTickCount - tm) > 5000 then break;
sleep(100);
FDoc := (self.Document as IHTMLDocument2);
FBody := (FDoc.body as IHTMLElement);
end;

FCS.Enter;
try
FBody.insertAdjacentHTML('beforeEnd', AHTMLStr);
scrollBottom;
finally
FCS.Leave;
end;