O seu problema é no tipo da sua variável condicional usada no Case. Olha só o
que o help informa:
Case
Statements The case statement may provide a readable alternative to deeply
nested if conditionals. A case statement has the form
case selectorExpression of
caseList1: statement1;
...
caseListn: statementn;
endwhere selectorExpression is any expression of
an ordinal type smaller than 32 bits (string types and ordinals larger than 32
bits are invalid) and each caseList is one of the following:
* A numeral, declared constant, or other expression that
the compiler can evaluate without executing your program. It must be of an
ordinal type compatible with selectorExpression. Thus 7, True, 4 + 5 * 3, 'A',
and Integer('A') can all be used as caseLists, but
variables and most function calls cannot. (A few built-in functions like Hi and
Lo can occur in a caseList. See Constant
expressions.)
* A subrange having the form First..Last, where First and Last both
satisfy the criterion above and First is less than or equal to Last.
* A list having the form item1, ..., itemn, where
each item satisfies one of the criteria above.
Luciano Calenzani Simões
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
