function TForm1.ByName(FieldName: string; Value: string): Boolean;
 var
   i, j: Integer;
   FormItem: Variant;
begin
 Result := False;
if WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 then
 begin
   Exit;
 end;
for I := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do
 begin
   FormItem := WebBrowser.OleObject.Document.forms.Item(I);
   for j := 0 to FormItem.Length - 1 do
   begin
     try
     if FormItem.Item(j).Name = FieldName then
       begin
         if Value = 'Click' then
           FormItem.Item(j).Click
         else
           FormItem.Item(j).Value := Value;
         Result := True;
       end;
     except
       Exit;
     end;
   end;
 end;
end;

function TForm1.ByImg(Src: string; Value: string): Boolean;
 var
   i, j: Integer;
   FormItem: Variant;
begin
 Result := False;
if WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 then
 begin
   Exit;
 end;
for I := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do
 begin
   FormItem := WebBrowser.OleObject.Document.forms.Item(I);
   for j := 0 to FormItem.Length - 1 do
   begin
     try
     if FormItem.Item(j).Src = Src then
       begin
         if Value = 'Click' then
           FormItem.Item(j).Click
         else
           FormItem.Item(j).Value := Value;
         Result := True;
       end;
     except
       Exit;
     end;
   end;
 end;
end; 

procedure TForm1.FormCreate(Sender: TObject);
begin
  //заполняем поля на яндексе
  WebBrowser.Navigate('http://mail.yandex.ru/');
  ByName('login', 'uzver');
  ByName('passwd', 'pas123');
  ByImg('http://img.yandex.net/wmi/classic/static/7/i/tb/i24-new-msg.gif', 'Click'); //в результате этой функции произведёться клик по картинке с данным именем файла
end;