Un bucle, por ejemplo, aprovechando un poco tu código:
Código Delphi
[-]
SQL.Clear;
SQL.Add('SELECT * FROM ventasareas');
Open;
while not sql.eof dobegin
SQL.articulo1 := FieldByName('articulo').value;
SQL.cantidad1 := FieldByName('cantidad').value;
etc...
SQL2.Clear;
SQL2.Add('INSERT INTO ventasdet (venta, orden, articulo, cantidad, precio,iva,devolucion, fecha)');
SQL2.Add('VALUES (:venta, rden, :articulo, :cantidad, recio, :iva,:devolucion,:fecha)');
SQL2.params.ParamByName('venta').Value := sVenta;
SQL2.params.ParamByName('orden').Value := IntToStr(i);
etc...
SQL.next;
end;