[[coso]]

si el fallo seguro que no esta en esquema, sino en algun detalle. Antes del codigo en el onchange, yo pondria

Código Delphi [-]
 if not (sender as TDBEdit).Focused then exit;