Ayuda con inputquery

[danielmj]

Hola, ya está resuelto,

Código Delphi [-]
procedure TryInputQuery;
var
   respuesta: boolean;
   TextoUsuario: string;
   resp, estilo: integer;
   texto: pchar;

label salto;
begin
    salto:
    respuesta := InputQuery ('Cajón de claves.', 'Introduce la contraseña maestra.', true, TextoUsuario);
     if respuesta {= true} and (TextoUsuario = 'xr8mt5xr') then
     begin
       form3.Label1.Visible:= true;
       form3.Panel1.Visible:= true;
       form3.sp1.visible:= true;
       form3.show
     end
     else
     with application do
     begin
      estilo :=  MB_OKCANCEL + MB_ICONWARNING;
      resp :=  MessageBox ('Error. La contraseña introducida no es reconocible'+#13+
                           'o no has introducido ninguna clave válida. Vuelve a'+#13+
                           'intentarlo o pulsa sobre "Cancelar" para salir al '+#13+
                           'menú principal.', 'Cajón de claves. Error', estilo); //recogemos el valor de la función
      case resp of
        IDOK: goto salto;
        IDCANCEL: form3.Close;
      end; //case
     end; //with
  end;

procedure TForm3.FormActivate(Sender: TObject);
begin
  TryInputQuery;
end;

Hay que añadir la directiva {goto on}
Saludos.