pascal/delphi function IsVowel

function IsVowel(letter:char):boolean;
    begin
        case ord(letter) of
            65: IsVowel := true;
            69: IsVowel := true;
            73: IsVowel := true;
            79: IsVowel := true;
            85: IsVowel := true;
            97: IsVowel := true;
            101: IsVowel := true;
            105: IsVowel := true;
            111: IsVowel := true;
            117: IsVowel := true;
        else
            IsVowel := false;
        end;
    end;