[[newtron]]

Hola.

En el ejemplo que citas si puedes cerrar el query antes del mensaje

Código Delphi [-]
try
  Query1.open;
  Edit1.Text:=Query1.FieldByname('CAMPO').AsString;
except
  Query1.close;
  ShowMessage('No se pudo cargar los datos');
end;

Saludos