addHTML

tm : integer; 日服游戏
FBody : IHTMLElement; マネー
FDoc := (self.Document as IHTMLDocument2); RMT
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;