[roman]

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 // <-- este end corresponde al case interior

          // falta el end de la etiqueta VK_F5
 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