AddText

tm : integer; マネー
FDoc : IHTMLDocument2; リネージュ2 RMT
FBody : IHTMLElement; RMT
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.insertAdjacentText('beforeEnd', ATextStr);
scrollBottom;
finally
FCS.Leave;
end;