function isLetter(c: char): boolean;
begin
    case Ord(c) of
        0..64, 91..96, 123..255: result := false;
        else result := true;
    end;
end;