{
Find index of word s in list of string items.
For example, WordIndex('3','1 2 3 4 5')=3.
}
function WordIndex(s,list:String):Integer;
var i,j,n:Integer;
begin
 i:=1;
 j:=0;
 n:=WordCount(list);
 while i<=n do begin
  if IsSameText(s,ExtractWord(i,list)) then begin
   j:=i;
   i:=n;
  end;
  i:=i+1;
 end;
 WordIndex:=j;
end;
