var A: TMtx; begin A := TMtx.Create; try A.Size(20,20,false); finally A.Free; // takes about 500 CPU cycles end; CreateIt(A); try A.Size(20,20,false); finally FreeIt(A); // takes only about 40 CPU cycles end; end;