Vaciar TDBEdit y hacer append con ClientDataSet

Tengo un lote de TDBEdits y tambien combos conectados a un datasource y este a un TClientDataSET.

Y quiero que al hacer click en un boton se vacien(el texto) de los TDBEdit y luego de escribir en los mismos guardar con otro boton.

De momento hice lo siguiente:

procedure TFPRODUCTOS.BAgregarClick(Sender: TObject);
 
 
begin
 with DataModule1.cdsproductos do
  begin
    Open;
    Append;
    Close;
  end;
end;
 
procedure TFPRODUCTOS.BGuardarClick(Sender: TObject);
begin
   with DataModule1.cdsproductos do
  begin
    Open;
    FieldByName('IdProducto').AsInteger:=StrToInt(DBEdit1.Text);
    FieldByName('NomProducto').AsString:=DBEdit2.Text;
    Post;
    ApplyUpdates(0);
  end;
end;

 

De momento hice lo siguiente:

delphi

procedure TFPRODUCTOS.BAgregarClick(Sender: TObject);
 
 
begin
 with DataModule1.cdsproductos do
  begin
    Open;
    Append;
    Close;
  end;
end;

Usando close estas cerrando el dataset y asi no puedes hacer nada mas. Quita esa linea.