Come mai
var PX2: array [1..1500,1..1500] of TColor;
da l'eccezione EStackOverflow??