webBroker的option,类似Delphi的ComboBox1

<form action="KK" method="post">
<select name="address" id="ida">
    <option value="cc">长春</option>
    <option value="hz">杭州</option>
    <option value="bj" selected>北京</option>
    <option value="tj">天津</option>
    </select>
    <p></p>
     <input type="submit" value="提交">
</form>

 //KK option    下拉选择
procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var s: string;
begin
//   S :=  Request.ContentFields.Text;    //address=tj
         if Request.ContentFields.Values['address']='cc'   then  s:='长春'
    else if Request.ContentFields.Values['address']='hz' then  s:='杭州'
    else if Request.ContentFields.Values['address']='bj' then  s:='北京'
    else if Request.ContentFields.Values['address']='tj' then  s:='天津';
    Response.ContentType := 'text/html; charset="UTF-8"';
      Response.Content := s;
end;