Puedes añadir un campo calculado y en el evento CalcField del Dataset haces el tratamiento oportuno sobre ese campo cifrado.
Algo parecido a esto:
Código:
procedure TDMacceso.QRUsuariosCalcFields(DataSet: TDataSet);
begin
DataSet.FieldByName('ClaveSinCifrar').AsString := Descifrar(DataSet.FieldByName('CLAVESECRETA').AsString);
end;