2d-position/javascript/delphi

[horst]

es geht darum in einem editierbaren webbrowser text einzufügen den ich mit der "2d-position" dann verschieben möchte. ich habe aber nur dieses javascript, wer mag mir dabei helfen das mit delphi zu machen?

Code:

     
function fnInsertText(oTxtId,oTxtFont) {
    var oNode=document.createElement("div");
    card.insertBefore(oNode);
    oNode.style.fontFamily=oTxtFont;
    oNode.innerText='Geben Sie bitte hier ihren Text ein';
    giLastTxt++;
    var iTempCount = "text" + giLastTxt;
    oNode.id = iTempCount;
    oNode.style.position='absolute';
    
    
    oNode.setActive()
}

habs so versucht

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  HTMLDocument2Ifc: IHTMLDocument2;
  fname, fnameb: string;
begin

  HTMLDocument2Ifc := WebBrowser1.Document as IHTMLDocument2;
    HTMLDocument2Ifc.execCommand('createElement', false, 'div');
end;