[M.A.D.M.A.N.]

PHP код:

case UpperCase(Str[1]) Of
  'O':If UpperCase(Str)='ONE' Then {Some procedure or function};
  'T':If UpperCase(Str)='TWO' Then {Some procedure or function}
    Else If UpperCase(Str)='THREE' Then {Some procedure or function}; 
end;