[.:MaSe:.]

работа с абстрактными класс юнитами как-то сложновато для меня, мне бы что-нибудь попроще например:
for i:=1 to unit_count do
if unit_life>0 then
{и тут всё необходимое: перемещение, атака..}