Como recuperar datos de una tabla

[tebre]

tablaventa tablaproducto
folio fecha numempleado clave producto stock
1 08/02/09 03390586 100 50
200 40
300 100
tabla detalleventa
folio claveproducto cantidad
1 100 10
1 200 5
1 300 20

ahora bien este es la estructura de las tablas...el problema es que cuando yo elimine una venta en este caso el folio 1 en la tabla venta. recupere en la tabla detalleventa la cantidad y se lo sume al stock en la tabla producto. tengo la idea de hacer un select..y recorrer lo por un ciclo for..pero no se como?

Código Delphi [-]
 
   Datos.QryProducto.Active:= False;
   Datos.QryProducto.SQL.Clear;
   Datos.QryProducto.SQL.Add('SELECT cantidad');
   Datos.QryProducto.SQL.Add('FROM DetalleVenta);
   Datos.QryProducto.SQL.Add('WHERE FolioVenta='+ EdfolioVenta.Text +'));
   Datos.QryProducto.Active:= True;

ahora como recorre los elementos para ir salvando la cantidad...

esperando respuesta.....................grax