SUM Different types seperately!

Hi,
I have two type of products in my Grid! that I show them with 1 and 2.
I want to SUM the values of type 1 and two in separate vars! and then show them in a text label !
In "C" like Syntax we can use this += in a loop (For,Do,While) but i Don't know how can i do that in Delphi!
For example in PHP we can use something like this :

<?php
$arr = array(1, 2, 3, 4);
foreach ($arr as &$value) {
    $value += $value;
}
echo $value;
?>

Can we do the same in Delphi ?!