case of 的使用？解决方案

case of 的使用？
LDWIPMove.EmptyDataSet;
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('SELECT * FROM DBCTicket ');
  ADOQuery1.SQL.Add(' where (BC_Close is null) AND'); 

  case cbb_Prod.ItemIndex of
  0: ADOQuery1.SQL.Add('(BC_po_no LIKE ''HH1%'') AND (BC_Print=''N'') ');
  1: ADOQuery1.SQL.Add('(BC_po_no LIKE ''HH2%'') AND (BC_Print=''N'') ');
  2: ADOQuery1.SQL.Add('(BC_routing_Table = ''HH2_LinkBar'') AND (BC_Print<>''N'')');
  end;


这样写不对吧 CASE OF可以有两个条件吗！应该怎么写啊！！

[解决办法]
没看出Case of有什么不对
[解决办法]
Switch语句，写法没错
[解决办法]
case index of
...
else
...
end;

index是有序数，LZ的写法很正确!
[解决办法]
lz说case of 有两个条件什么意思？上面的写法没有问题，delphi中注意case的值必须是整形就好！
[解决办法]
楼主的写法没有问题
[解决办法]
神马叫有两个条件
[解决办法]
有什么不对的？！
[解决办法]
case var of
1,2: ...
3: ...
else ...
end;