Erro ao dar ApplyUpdates

Pessoal,

Bom dia a todos.
Estou com um problema no momento de dar o applyupdate em um ClientDataSet.

Estou usando Delphi 7 com banco Oracle. A conexão é feita usando dbExpress, uma query, um DataSetProvider e um ClientDataSet.

A idéia é a seguinte: percorro o banco verificando o campo ´IDENTIFICADOR´ através de uma função que verifica se há letras nesse campo. Caso haja letras eu defino o valor do campo para ´ ´, ou seja, sempre que tiver uma letra no campo eu apago o seu valor. Essa função funciona bem. O problema está quando, após o post, tento dar o ApplyUpdates.
Já pesquisei muito sobre sobre a propriedade UpdateMode do DataSetProvider e sobre os ProviderFlags do ClientDataSet mas mesmo assim não consegui resolver.

Com UpdateMode do DataSetProvider definido para upWhereAll e os provider flags de todos os campos definidos para [pfInUpdate,pfInWhere] recebo o seguinte erro: ´Record not foun or changed by another user´

Alterei o UpdateMode do DataSetProvider para upWhereKeyOnly e o ProviderFlags do campo chave no ClientDataSet para [pfInUpdate,pfInWhere,pfInKey] e passei a receber o seguinte erro: ´Unable do find record. No key specified´

Alguém tem alguma sugestão? O que estou fazendo errado? Tem alguma coisa a ver com o fato de eu percorrer o ClientDataSet, editar o mesmo ClientDataSet e depois continuar o percorrendo? Segue o código abaixo

Agradeço a todos que puderem contribuir.

Alexandre Trindade



procedure TfrmPrincipal.ExcluiLetras();
var
i: integer;
begin
ClientDataSet1.Close;
ClientDataSet1.Open;
ProgressBar1.Min := 1;
ProgressBar1.Max := ClientDataSet1.RecordCount;

for i := 1 to ClientDataSet1.RecordCount do
begin
if letras(ClientDataSet1IDENTIFICADOR.AsString)then
begin
ClientDataSet1.Edit;
ClientDataSet1IDENTIFICADOR.AsString := ´´;
ClientDataSet1.Post;
ClientDataSet1.ApplyUpdates(0);
end;
ClientDataSet1.Next;
ProgressBar1.StepIt;
Application.ProcessMessages;
end;