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;
В этом случае теряется смысл использования case, т.к. вы все-равно работаете с IF THEN ELSE