addHTML

var RMT 携帯
tm : integer;
FDoc : IHTMLDocument2;
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;