[danielmj]

Hola gente,

Estoy teniendo problemas con lazarus, en realidad, entiendo que pueda ser algo de lo mas sencillo pero a mi no se me ocurre que mas probar. El caso es que tengo el siguiente código:

Código Delphi [-]
procedure TryInputQuery;
   var respuesta: boolean;
       TextoUsuario: string;
  begin
     respuesta := InputQuery ('Cajón de claves.', 'Introduce la contraseña maestra.', true, TextoUsuario);
     if respuesta {= true} and (TextoUsuario = 'xxxxxxx') then
     begin
       form3.Label1.Visible:= true;
       form3.Panel1.Visible:= true;
       form3.sp1.visible:= true;
       form3.show
     end
     else
     ShowMessage('Error. Contraseña no reconocible');
//     form3.close
  end;

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

La idea es que se obligue a introducir la contraseña correcta o se pulse el botón cancelar pero en lugar de eso, lo que hace es.., si se introduce la contraseña correcta deja avanzar pero si se pulsa el boton cancelar sigue mostrando el showmessage y cuando acepto ese mensaje el programa continua adelante, es decir, da acceso al listado, algo que no debe ocurrir hasta que se introduzca la clave correcta. Y no sé como solucionarlo, he pensado en un goto con su label pero no sé... creo que eso es de todo menos eficiente. ¿Alguna idea?
Un saludo.