[papulo]

Primero un C&P

Código Delphi [-]
 procedure TFiller.FormKeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);
 begin
 case Key of
 VK_F5 :
          begin
             case iStatus of
             0 : exit;
             1 : RadioButton2_Init;
             else Lanzar_Consulta;
          end;
 VK_ESCAPE :
          begin
             case iStatus of
             0,1 : Filler.Close;
             10,50 :
                   begin
                      iStatus := 1;Lanzar_Consulta;;
                   end
                   else
                   begin
                      iStatus := (iStatus - 1);Lanzar_Consulta;
                   end;
          end
 VK_F2 :
          begin
             if iStatus=1 then
             begin
             iStatus := 10;
             Lanzar_Consulta;
             end;
          end
 VK_F3 :
          begin
             if iStatus=1 then
             begin
             iStatus := 50;
             Lanzar_Consulta;
             end;
          end
 VK_RETURN :
          begin
             case iStatus of
             11,52: exit;
             10,50..51 : begin
                          iStatus := (iStatus+1);
                          Lanzar_Consulta;
                          end;
          end
 end;

Despues, la pregunta:

¿Que falla exactamente? Me jugaria un testiculo (hipoteticamente hablando) a que es de sintaxis, pero la idea es correcta.

Ya direis...