Código Delphi [-]if not QueryConsulta.IsEmpty then //Si IsEmpty, No se encontró el registro
if not QueryConsulta.IsEmpty then //Si IsEmpty, No se encontró el registro