Как сделать мультиселект?

Есть страничка на которой присутствует список что-то типа TListBox

Используется данная функция для выбора элемента списка.

Function FVS(WebBrowser : TEmbeddedWb;val:string): Boolean;

var iDoc:IHtmlDocument2;

    i,j,selindex:integer;

    ov:OleVariant;

    iDisp: IDispatch;

    iColl:IHTMLElementCollection;

    iInputElement:IHTMLSelectElement;

    HTMLWindow:IHTMLWindow2;

begin

  Result:=False;

  WebBrowser.ControlInterface.Document.QueryInterface(IHtmlDocument2,iDoc);

  HTMLWindow:=iDoc.parentWindow;

  if not assigned(iDoc) then

   Begin

    ShowMessage('Не присоединено!');

    Exit;

   end;

  IDisp:=iDoc.all.tags('SELECT');

  if assigned(IDisp) then begin

    IDisp.QueryInterface(IHTMLElementCollection,iColl);

    if assigned(iColl) then begin

      for i:=1 to iColl.Get_length do begin

        iDisp:=iColl.item(pred(i),0);

        iDisp.QueryInterface(IHTMLSelectElement,iInputElement);

        if assigned(iInputElement) then begin

        if iInputElement.Get_name='category[]'  then

        begin



      for j:=0 to iInputElement.Get_length-1 do

      begin  //iInputElement.item(номер в списке с 0,0) .text или .value

      If val=((iInputElement.item(j,1) as IHTMLOPTIONELEMENT).value) then

      selindex:=j

      end;

      iInputElement.selectedIndex:=selindex;

      Result:=True;

        end;

        end;

      end;

    end;

  end;



Реализация - 

      FVS(WB,'5');

Данная функция выбирает только 1 элемент списка.

Как сделать мультиселект? (как выбрать несколько элементов списка?)

На спец. форумах по теме вообще тишина))