Renomear Vários Arquivos Dentro de Uma Pasta

procedure TForm1.Button4Click(Sender: TObject);
var
  I : Integer; 
  NomeOld, NomeNew, Ext : string;
begin
  ClientDataSet1.First;
  ClientDataSet2.First; // Acrescentei esta linha
  while not ClientDataSet1.Eof do
  begin
    NomeOld := ClientDataSet1.FieldByName(''IMAGEM'').AsString;//Lê o Antigo Nome
    Ext := ExtractFileExt(NomeOld); //Extrai a Extenção
    NomeNew := ExtractFilePath(NomeOld); //Extrai o local do arquivo
    NomeNew := NomeNew + ClientDataSet2.FieldByName(''V_ID'').AsString +  ''.jpg'';//Monta o Novo Nome
    RenameFile(NomeOld,NomeNew);
    ClientDataSet1.Next;
    ClientDataSet2.Next; // Acrescentei esta linha
  end;
 
end;