// Немного упростил, чтобы не грузить трёхзвенкой, но
// на двух звеньях иначе!
void __fastcall Tdm::MyFunc(TDataSet *SourceDS, TUpdateKind UpdateKind,
                                          TDataSet *DS)
{
 TADOUpdateQuery *qr = (TADOUpdateQuery *) SourceDS;
 TADOUpdateSQL *ADOupSQL = qr->UpdateObject;

  SetSQLParams(ADOupSQL->Query[UpdateKind], DS);
  ADOupSQL->ExecSQL(UpdateKind);
}

void __fastcall Tdm::SetSQLParams(TADOQuery *qr, TDataSet *ds)
{
  int i, pos;
  char *pt;
  TParameter *Param;
  AnsiString PName;
  TField *Field;

  for(i =  0 ; i < qr->Parameters->Count; i++){
   Param = qr->Parameters->Items[i];
   PName = Param->Name;
   pos = PName.Pos( "OLD_" );
   if(pos ==  1 ) PName.Delete( 1 ,  4 );
   Field = ds->FieldByName(PName);

   if(pos ==  1 ) Param->Value = Field->OldValue;
   else {
    if(Field->DataType == ftBlob || Field->DataType == ftMemo ||
       Field->DataType == ftGraphic || Field->DataType == ftFmtMemo){
     Param->Assign(Field);
    } else {
     if(Field->IsNull) Param->Value = Field->OldValue;
     else Param->Value = Field->NewValue;
    }
   }
  }
}