[*Caro*]

Hola schaka, para recorrer el resultado que te ha dado tu consulta debes hacerlo asi:

Código Delphi [-]
 Zcompras.sql.Clear;
 Zcompras.Close;
 Zcompras.SQL.Add('SELECT Cantidad, CostoF, Subtotal, CostoAc FROM compras ');
 Zcompras.open;

 Zcompras.First;//Te posicionas en el primer registro
 While Not(Zcompras.Eof) do //Recorres mientras no termine de leer todos los registros de la consulta
  begin
   cantidad:=  Zcompras.Fields[0].AsInteger;
   Precio:= Zcompras.Fields[1].AsFloat;
   sub:= Zcompras.Fields[2].AsFloat;
   anterior:= Zcompras.Fields[3].AsFloat;
   
   //Haces las operaciones que tienes que hacer

   Zcompras.Next;//Pasas al siguiente registro
  end;

Saluditos