[roman]

Código Delphi [-]
while not(Data.eof) do
begin
  Data.FieldByName('CampoX').AsString := Encryptar(Data.FieldByName('CampoX').AsString);
  Data.Next;
end

// Saludos