Ordenação ClientDataSet...

var
  lRegistro: String;
begin
...
...
  ClientDataSet.First;
  while not ClientDataSet.Eof do begin
    lRegistro := ClientDataSet.FieldByName(´NomeCampo´).AsString;
    ClientDataSet.Edit;
    ClientDataSet.FieldByName(´NomeCampo´).AsString := 
      Copy(lRegistro,1,2)+CaracteresGerados+Copy(lRegistro,3,6);
    ClientDataSet.Post;
    ClientDataSet.Next;
  end;
...
...
end;

ClientDataSet.IndexDefs.Add(´NomeIndice´,´NomeCampo´,[]);
ClientDataSet.IndexFieldNames := ´NomeCampo´;

  private
    { Private declarations }
// Informará se já foram carregados os valores para o campo tipo InternalCal
    pvCarregou: Boolean;
    function GeraCaracter: String;

// função para criar os caracteres randomicamente
function TForm1.GeraCaracter: String;
var
   I: Integer;
begin
  Randomize;
  I := Random(999);
  Result :=  FormatFloat(´000´,I);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  cds.Open;
// Crio um índice no CDS para ordenar pelo campo tipo InternalCalc
  cds.IndexDefs.Add(´idxOrdem´,´Teste´,[]);
// Ao abrir o CDS, automaticamente é executado o evento OnCalcFields, por isso
// após a abertura do CDS eu mudo o status da variável pvCarregou para True,
// para que quando alterar o índice não reexecute o evento OnCalcFields
  pvCarregou := True;
end;

procedure TForm1.cdsCalcFields(DataSet: TDataSet);
var
  Primeiro, Segundo: String;
  lRegistro: String;
begin
// Verifica se a variável é false para poder carregar o campo tipo InternalCalc
// com os caracteres necessários
  if not pvCarregou then
  begin
    lRegistro := cds.FieldByName(´CPOSTRING´).AsString;
    Primeiro := Copy(lRegistro,1,2);
    Segundo := Copy(lRegistro,3,6);
    cds.FieldByName(´Teste´).AsString := Primeiro+GeraCaracter+Segundo;
  end;
end;