работа с webbroser

var
Range: IHTMLTxtRange;
begin
 Range := (editor.selection.createRange as IHTMLTxtRange);
 Range.execCommand('insertinputpassword', false, emptyparam);
end;
end;

 Range := (editor.selection.createRange as IHTMLTxtRange);
   Range.select;
  Range.execCommand('insertinputtext', false, emptyparam);
  Range.select;

procedure tform1.speedbutton13click(sender: tobject);
var
ctrlrange: ihtmlcontrolrange;
textrange: ihtmltxtrange;
begin
if editor.selection.type_='control' then
begin
ctrlrange:=(editor.selection.createrange as ihtmlcontrolrange);
if not ctrlrange.querycommandenabled('insertimage') then
application.messagebox('not supported!','');
else
ctrlrange.execcommand('insertimage',false,'c:\my files\porshe1.jpg') end
else
begin
textrange:=(editor.selection.createrange as ihtmltxtrange);
textrange.execcommand('insertimage',false,'c:\my files\porshe1.jpg')
end;
end;