klick auf ein Bild im TWebbrowser abfangen

[horst]

Hallo...
Wie kann ich einen klick auf ein Bild im TWebbrowser abfangen,
beim Beispiel unten muß ich ja erst ein Bild markieren und dann einen Button drücken.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  if Webbrowser1.OleObject.Document.Selection.type = 'Control' then 
  begin 
    if Webbrowser1.OleObject.Document.Selection.CreateRange.CommonParentElement.tagName = 
      'IMG' then 
      ShowMessage('An Image is selected'); 
  end 
  else 
  begin 
    if Webbrowser1.OleObject.Document.Selection.createRange.Text = '' then 
      ShowMessage('Nothing is selected - '); 
  end; 
end;