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 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); case resp of
IDOK: goto salto;
IDCANCEL: form3.Close;
end; end; end;
procedure TForm3.FormActivate(Sender: TObject);
begin
TryInputQuery;
end;
Hay que añadir la directiva {goto on}
Saludos.