¿Como Copiar Un Solo valor en Tablas Access?

[wiwaedu]

¿Seria correcto hacer esto?:

procedure TImpBL.Button1Click(Sender: TObject);
begin
ADOTable1.Active:= False;
with QCopy do
begin
Active := false;
SQL.Clear;
SQL.Text := 'INSERT INTO B(NumSet,Cantidad) VALUES("'+DBEdit1.Text+'",'+Edit1.Text+')';
ExecSQL;
end;
ADOTable1.Active := True;
end;