求助一个超难的条件选择语句

命题：有A,B,C,D四个数，A只能取值0或1，B只能取值0或2，C只能取值0或3，D只能取值0或4，
并且A,B,C,D这四个数某一时刻肯定有也只能有一个数是非零，其他三个数肯定是零。
求随机情况某时间点下z=A+B+C+D的和。
定义变量的步骤就省略了，
如果用LUA语言的话很简单：
if A>0 then
  z=1
elseif b>0 then
  z=2
elseif c>0 then
  z=3
elseif d>0 then
  z=4
end

如果用delphi
我只能用连续套用 if then else
if A>0 then
  z:=1
else
  if B>0 then
    z:=2
  else
    if C>0 then
      z:=3
    else
      z:=4;
幸好只有4个数，要是有几十个数，那不就很麻烦而且格式很难看，要是用case语句，我不会写，或者case语句根本解决不了这样多个不同变量取不同值情况
有哪位高手能用delphi语句很好解决这个问题吗，谢谢！