A ver, a ver. Discúlpame por favor
papulo. Realmente no era mi intención ser irónico. Simplemente pensé que al ver la ayuda te darías cuenta de cuál era el error. Me percato de que no lo dije en términos correctos y para mitigar un poco la mala impresión te explico aquí lo que sucede:
Cada etiqueta del
case puede omitir begin..end si hay una sóla sentencia pero si hay más de una debes ponerlos:
Código Delphi
[-]
case ... of
etiqueta:
begin
...
end;
end;
Pero cada
case debe siempre terminar con un
end.
Así que, cuando tú pones
Código Delphi
[-]
case Key of
VK_F5 :
begin
case iStatus of
0 : exit;
1 : RadioButton2_Init;
else Lanzar_Consulta;
end
VK_ESCAPE :
...
El
end que aparentemente corresponde a la etiqueta (por laindentación dada) realmente corresponde al
case anidado y por tanto falta un
end.
Como esto sucede en las cinco etiquetas del case externo por ello son cinco errores.
// Saludos y disculpas