procedureTForm1.Button1Click(Sender: TObject); var
li: Word; begin
// Loop through all images of a TWebbrowser // Schleife ьber alle Bilder im Webbrowser for
li := 0 to
WebBrowser1.OleObject.Document.Images.Length - 1 do
// Exchange image with an own image // Austauschen der Bilder im webbrowser - durch 'MyImage.gif' WebBrowser1.OleObject.Document.Images.Item(0).Src := 'c:MyImage.gif'; end
;