Con delphi Insert en Firebird varios registros desde otra tabla

[lasweb]

Tengo que insertar varios registros de una tabla en otra que tiene los mismos campos, he probado con varios modos y solo me inserta el ultimo
with dei do
begin
Close;
sql.Clear;
SQL.Add('insert into dei (item,nupd,preco,quant) values '#39+veiitem.Value+#39+','+#39+veinupd.Value+#39+','+#39+veipreco.asstring+#39+','+#39+veiquant.asst ring+#39+')');
Open;
end;

Tambien intente de esta manera ya que el anterior me ingresa el ultimo

with dei do
begin
Close;
sql.Clear;
SQL.Add('insert into dei select * from vei WHERE' +#39+veinupd.Value+#39+ '='+#39+nroboleta.Caption+#39);
Open;
end;
Como puedo hacer desde ya gracias