Page Comparison

uses
  Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, 
  StdCtrls, uVsClientDataSet, DBClient, DB;    
  
procedure EnviarParaBD(AInfoGravar: OleVariant);
var
  vCdsAux: TVsClientDataSet;       
begin
  if not Assigned(AInfoGravar) then 
    exit;
    
  vCdsAux := TVsClientDataSet.Create(nil);          
  try
    dmConexao3c.GetDspEdicao(vCdsAux, 'CIDADE');
    vCdsAux.Data := AInfoGravar;
    dmConexao3c.CDSApplyUpdates([vCdsAux]);
  finally
    vCdsAux.Free;   
  end;
end;