В TV1 формы создаются и, что бы не париться с этим делом, я просто передаю их туда.
Ошибка то в том, что в 358 строчке (for i:=1 to 10 do Form3.PO[i]:=PO[i]
массив передаётся и можно вывести переменные Form3.PO[i] и PO[i];
Но вот в Form3 ничего нет и все равно 0.