[Genry]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure TForm1.Button1Click(Sender: TObject); var HTMLDocument2Ifc: IHTMLDocument2; HTMLSelectionObjectIfc: IHTMLSelectionObject; HTMLTxtRangeIfc: IHTMLTxtRange; begin HTMLDocument2Ifc := WebBrowser1.Document as IHTMLDocument2; HTMLDocument2Ifc.execCommand('InsertImage', False, ''); HTMLSelectionObjectIfc := HTMLDocument2Ifc.selection; if HTMLSelectionObjectIfc.type_ = 'Control' then HTMLSelectionObjectIfc.Clear; HTMLTxtRangeIfc := HTMLSelectionObjectIfc.createRange as IHTMLTxtRange; HTMLTxtRangeIfc.pasteHTML('<image alt="Hello" src="c:\test.gif"> '); end;

Вылазит ошибка уже после компиляции:


Помогите!