Сделайте на языке ST через динамический массив:
//
AInActiveOnly := CREATE_ARRAY(INIT := 0, SIZE := 0);
AInActiveOnlyCount := 0;
//
IF () THEN
//
AInActiveOnlyCount := AInActiveOnlyCount + 1;
AInActiveOnly[AInActiveOnlyCount] := AIn[i];
END_IF;
-----
Обновить MS4D до 1.2.18 нельзя?