Смешались в кучу люди, кони, код, pou, экземпляры
Немножко таймеров :
var
t : array[1..4000] of TON;

И так можно несколько раз