2 cuestiones, keypress de un boton y codigo que no se refleja o ejecuta

[roman]

Empezado por chartres

Otro problema esque dentro del Onclic del boton al inicio del codigo le puse tambien que se prenda el label Label.visible=true
pero por alguna razon delphi no ejecuta el codigo aunque este al principio

Prueba poniendo:

Código Delphi [-]
Label1.Visible := true;
Application.ProcessMessages;

{ código de la consulta }

Label1.Visible := false;

en el OnClick del botón.

// Saludos