[paladincubano]

Creo que encontre la solucion.
Si no es asi por favor corregidme.

Código Delphi [-]
procedure TDM.QRevisionesBeforePost(DataSet: TDataSet);
begin
  Dataset['idCliente']:=DM.QClientes['idCliente'];
end;