Hm
A co toto.
www.festra.com

function TForm1.FillForm(WB: TWebBrowser; FieldName, Value: string): Boolean;
var
  FormNr, ItemNr: integer;
  TheForm: Variant;
begin
  Result := False;
    if WB.OleObject.Document.All.Tags('FORM').Length = 0 then begin
         ShowMessage('Error: no FORM found on page');
    Exit;
    end;
      for FormNr := 0 to WB.OleObject.Document.Forms.Length - 1 do begin
          TheForm := WB.OleObject.Document.Forms.Item(FormNr);

      for ItemNr := 0 to WB.OleObject.Document.Forms.Item.length - 1 do
      try
        // Pokud fieldname nalezena, se snaží vyplnit a zastavení
        if TheForm.Item(ItemNr).Name = FieldName then begin
          TheForm.Item(ItemNr).Value := Value;
          Result := True;
        end;
      except
        Break;
      end;
      if Result then Break;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 if not FillForm(WebBrowser1, 'Jméno', 'Jimi') then
    ShowMessage('Error: field NAME not found on page')
  else begin
    if not FillForm(WebBrowser1, 'Příjmení', 'Hendrix') then
      ShowMessage('Error: field LASTNAME not found on page')
    else begin
      if not FillForm(WebBrowser1, 'category', 'Music') then
        ShowMessage('Error: field CATEGORY not found on page');
    end;
  end;
end;
end.