1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  Memo1.Lines.Clear;
  for i := 1 to Webbrowser1.OleObject.Document.Images.Length - 1 do
  begin
    Memo1.Lines.Add(Webbrowser1.OleObject.Document.Images.Item(i).Src);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  i : Integer;
  Doc: IHTMLDocument2;
  Elements: IHTMLElementCollection;
  Elem : IHTMLElement;
begin
  Memo1.Lines.Clear;
  Doc := Webbrowser1.Document as IHTMLDocument2;
  Elements := (Doc.Images as IHTMLElementCollection) as IHTMLElementCollection;
  for i := 0 to Elements.Length-1 do
  begin
    Elem := Elements.Item(i, varEmpty) as IHTMLElement;
    Memo1.Lines.Add(Elem.outerHTML);
  end;
end;                    

1:

<input type="submit" value="OK">                    

1:
2:
3:
4:
5:
6:

WebBrowser.Navigate('http://www.fategate.de.vu');
repeat
Application.ProcessMessages;
Sleep(0);
until WebBrowser.ReadyState = READYSTATE_COMPLETE;
Document:= WebBrowser.Document;                    

1:

<IMG src="Links/FateGate.gif" width="691" height="122"  border="0">                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:

uses
  WinInet;

function GetCachedFileFromURL(strUL: string; var strLocalFile: string): boolean;
var
  lpEntryInfo: PInternetCacheEntryInfo;
  hCacheDir: LongWord;
  dwEntrySize: LongWord;
  dwLastError: LongWord;
begin
  Result := False;
  dwEntrySize := 0;
  FindFirstUrlCacheEntry(nil, TInternetCacheEntryInfo(nil^), dwEntrySize);
  GetMem(lpEntryInfo, dwEntrySize);
  hCacheDir := FindFirstUrlCacheEntry(nil, lpEntryInfo^, dwEntrySize);
  if (hCacheDir <> 0) and (strUL = lpEntryInfo^.lpszSourceUrlName) then
    begin
      strLocalFile := lpEntryInfo^.lpszLocalFileName;
      Result := True;
    end;
  FreeMem(lpEntryInfo);
  if Result = False then
  repeat
    dwEntrySize := 0;
    FindNextUrlCacheEntry(hCacheDir, TInternetCacheEntryInfo(nil^), dwEntrySize);
    dwLastError := GetLastError();
    if (GetLastError = ERROR_INSUFFICIENT_BUFFER) then
    begin
      GetMem(lpEntryInfo, dwEntrySize);
      if (FindNextUrlCacheEntry(hCacheDir, lpEntryInfo^, dwEntrySize)) then
      begin
        if strUL = lpEntryInfo^.lpszSourceUrlName then
        begin
          strLocalFile := lpEntryInfo^.lpszLocalFileName;
          Result := True;
          Break;
        end;
      end;
      FreeMem(lpEntryInfo);
    end;
  until (dwLastError = ERROR_NO_MORE_ITEMS);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  strLocalFile: string;
begin
  if GetCachedFileFromURL('http://www.abc.com/xyz.gif', strLocalFile) then
    ShowMessage(strLocalFile);
end;                    

1:

Image1.Picture.LoadFromFile(strLocalFile);