Pruebalo asi, en el OnChange:
Código Delphi
[-]
var
antiguedad : integer;
begin
try
if not varisnull(dm.TbEmpleadosFechadeNacimiento.value) and (dm.TbEmpleadosFechadeNacimiento.value <> 0) then
begin
antiguedad := trunc (trunc (date - dm.TbEmpleadosFechadeNacimiento.value) / 365);
dm.TbEmpleados.Edit;
dm.TbEmpleadosEdad.value := antiguedad;
end;
except
end;
end;