[Wbarrantes]

ok despues de cargada la conexion (el user ,pass,database,etc...) ejecuto el script que leo del archivo XML:

Código Delphi [-]
 
  try
          begin
            DataModule1.ClientDataSet1.Active := false;
            DataModule1.SQLQueryEvertec1.DBExecute(Script);
            DataModule1.ClientDataSet1.Active := true;
          end;

posteriormente conecto el data source, con lo que la informacion me queda ligada al DBgrid

Código Delphi [-]
 
DBGrid1.DataSource := DataModule1.DataSource1;

con esto en marcha, procedo a recorrer el dataset, para encriptar el campo que deseo(que es un valor que me viene dado en el XML de configuracion de la aplicacion)...

Código Delphi [-]
 

procedure TForm1.Button2Click(Sender: TObject);
var
 i : integer;
  archivo : TStringList;
  Data : TDataSet;
begin
  Archivo:=TStringList.Create;
  Data:=DBGRID1.DataSource.DataSet;
  Data.First;
    while not(Data.eof) do
     begin
       for i := 0 to dbgrid1.Columns.Count-1 do
        begin
             if DBGrid1.Columns[i].FieldName=edit1.Text then
             BEGIN
              DATA.Edit;
              Data.FieldByName(DBGrid1.Columns[i].FieldName).asString:= Encrypt(Data.FieldByName(DBGrid1.Columns[i].FieldName).asString);
             END
       end;

        data.Next;
      end;

end;

Nota: el edit1.Text contiene elnombre de la columna que deseo encriptar, esto para efectos de pruebas de funcionamiento, de momento...