[frandigo77]

Ahí va:

Código Delphi [-]
function TDialogo.Guardar: boolean;
var
  I: Integer;
begin
  inherited;
  Result:= False;
  if Assigned(dsBase.DataSet) then
  begin
    try
     With dsBase.DataSet as TClientDataSet do
     begin
      if Assigned(DataSetField) or FModoCache then
      begin
        CheckBrowseMode;
        Result:= True;
      end
      else
      begin
        Result:= ApplyUpdates(0) = 0;
        if not Result then
           Abort;
      end;
      end;
    except
      On E: Exception do
      begin
        Application.ShowException(E);
        raise E;
      end;
    end;
  end;
end;