Как добавить запись в таблицу без сохранения

with DBDataModule.SQLQueryProduct do
  begin
    if Active then Close;
    SQL.Clear;
    SQl.Add('INSERT INTO Product Values(:code,:name,:vendor,:description,:available,:price)');
    ParamByName('code').Value:='23';
    ParamByName('name').Value:='Чайник';
    ParamByName('vendor').Value:='Посуда';
    ParamByName('description').Value:='Это чайник';
    ParamByName('available').Value:='17';
    ParamByName('price').Value:='200';
    ExecSQL;
    if Active then Close;
    SQL.Clear;
    SQL.Add('SELECT * FROM Product');
    ExecSQL;
  end;

ExecSQL;

Active:=True;

with DBDataModule.SQLQueryProduct do
  begin
    SQL.Clear;
    SQl.Add('INSERT INTO Product Values(:code,:name,:vendor,:description,:available,:price)');
    ParamByName('code').Value:='23';
    ParamByName('name').Value:='Чайник';
    ParamByName('vendor').Value:='Посуда';
    ParamByName('description').Value:='Это чайник';
    ParamByName('available').Value:='17';
    ParamByName('price').Value:='200';
    ExecSQL;
  end;
   with DBDataModule.SQLQueryProduct do
    begin
    SQL.Clear;
    SQL.Add('SELECT * FROM Product');
    Active := True;
    end;

with DBDataModule.ClientDataSetProduct do
  begin
    Append;
    FieldByName('code').Value:='22';
    FieldByName('name').Value:='Чайник';
    FieldByName('vendor').Value:='Посуда';
    FieldByName('description').Value:='Это чайник';
    FieldByName('available').Value:='17';
    FieldByName('price').Value:='200';
  end;