nach vielen versuchen habe ich die lösung xD
sie ist zu einfach ^^
Delphi-Quellcode:
procedure TForm1.insert_text(str:string);
var
Range: IHTMLTxtRange;
begin
Range := ((WebBrowser2.Document as IHTMLDocument2).body as
IHTMLBodyElement).createTextRange;
Range.collapse(false);//----> diese zeile raus und dann
Range.parentElement.insertAdjacentHTML('BeforeEnd',str);
Range.scrollIntoView(true);
end;
<(^^<) <(^^)> (>^^)>