Title: How to Replace images in a TWebBrowser
procedure TForm1.Button1Click(Sender: TObject);
var
li: Word;
begin
// Loop through all images of a TWebbrowser
for li := 0 to WebBrowser1.OleObject.Document.Images.Length - 1 do
// Exchange image with an own image
WebBrowser1.OleObject.Document.Images.Item(0).Src := 'c:\MyImage.gif';
end;