Como recuperar datos de una tabla

[tebre]

tablaproducto
claveproducto----stock
100--------------50
200--------------40
300--------------100

tablaventa
folio---fecha------ numempleado
1-- 08/02/09------- 03390586

tabladetalleventa
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='+ QuotedStr(EdfolioVenta.Text ));
   Datos.QryProducto.Active:= True;

ahora como recorre los elementos para ir salvando la cantidad...y sumarlo al stock del producto............

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