Encuentra los 5 (o mas) errores...

[ContraVeneno]

Luego nos cuentas si resolviste lo del "for loop control". Y si no, pues ya sabes que aquí abrá gente que este dispuesta.

[papulo]

¡¡RESUELTO!! Aunque la ayuda me ha servido lo mismo que si estuviera en Arameo, lo que he visto es que comenzaba el statement con un condicional, y va ser que eso no le gustaba, asi que con este sencillo retoque

Código Delphi [-]
 VK_F2 : begin
            if iStatus=1 then
            begin
              iStatus := 10;
              Lanzar_Consulta;
            end;
         end;

Ya lo he hechado andar, ya que si me permite usar el if dentro del begin.

[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

[papulo]

Gracias Roman. Para nada me tome a mal tu comentario, solamente supuse que creias que mi nivel era mayor, y que en la ayuda lo veria de forma evidente, pero aun estoy aprendiendo, y de una forma bastante autodidacta, que me hace sufrir como un burro.

Gracias tambien a todos por la ayuda y las aclaraciones.