Gravar registro de log de alterações

[acneto.frc 0]

Bom dia a todos!

Tenho uma rotina desenvolvida em Delphi onde eu gravo em uma tabela os campos alterados das tabelas do sistema.

Preciso implementar essa rotina em javascript e não estou conseguindo obter os valores do campo alterado e o valor anterior (delta)

É uma rotina muito útil para acompanhamento de operação do sitema

Obrigado!

begin
  DmCliente.CdsAlteracoes.Open;
 
  m_modificado := false;
 
  for i := 0 to CdsAtivo.Fields.Count - 1 do
    begin
      V := CdsAtivo.Fields.OldValue;
      V := VarType( V );
 
      if CdsAtivo.Fields.OldValue <> CdsAtivo.Fields.NewValue then
        begin
          m_modificado := true;
          with DmCliente.CdsAlteracoes do
            begin
              DmCliente.CdsAlteracoes.Append;
              DmCliente.CdsAlteracoes.FieldByName('Alt_DtCadastro').AsString   := dateToStr( Date );
              DmCliente.CdsAlteracoes.FieldByName('Alt_Horario').AsString      := TimeToStr( time() );
              DmCliente.CdsAlteracoes.FieldByName('Alt_NomeTabela').AsString   := UpperCase(NomeTabela);
              DmCliente.CdsAlteracoes.FieldByName('Alt_CampoChave').AsInteger  := CdsAtivo.Fields[0].OldValue;
              DmCliente.CdsAlteracoes.FieldByName('Alt_NomeCampo').AsString    := CdsAtivo.Fields.FieldName;
 
              Case CdsAtivo.Fields.DataType of   //   .FieldByName(Vle.Cells[ 0 , i ]).DataType of
                ftString:
                begin
                  if CdsAtivo.Fields.OldValue <> Null then
                    DmCliente.CdsAlteracoes.FieldByName('Alt_DadoOriginal').AsString := CdsAtivo.Fields.OldValue;
                  if CdsAtivo.Fields.NewValue <> Null then
                    DmCliente.CdsAlteracoes.FieldByName('Alt_DadoAlterado').AsString := CdsAtivo.Fields.NewValue;
                end;
              end;
 
              DmCliente.CdsAlteracoes.FieldByName('Alt_NomeUsuario').AsString  := m_nomeusuario;
              DmCliente.CdsAlteracoes.FieldByName('Alt_DtCadastro').AsDateTime := date();
              DmCliente.CdsAlteracoes.FieldByName('Alt_Horario').AsString      := TimeToStr(time());
              DmCliente.CdsAlteracoes.FieldByName('Alt_NomeMicro').AsString    := m_HostNome^.h_name;
              DmCliente.CdsAlteracoes.FieldByName('Alt_IpMicro').AsString      := m_HostIp;
              DmCliente.CdsAlteracoes.FieldByName('Usu_Codigo').AsInteger      := m_CodigoUsuario;
 
              DmCliente.CdsAlteracoes.Post;
            end;
        end;
    end;
 
  if m_modificado = true then
    DmCliente.CdsAlteracoes.ApplyUpdates(0);
 
  DmCliente.CdsAlteracoes.Close;
 
end;