Зачем в последней строке OnClick? С помощью него можно присваивать обработчики OnClick различным компонентам. Вместо OnClick попробуй просто Click. Должно работать.
Код:
ovElements:=WebBrowser1.OleObject.Document.frames. item(1).document.all.tags('IMG');
for i := 0 to ( ovElements.Length-1 ) do
if (ovElements.Item(i).alt='Картинка') then ovElements.Item(i).click;