Покажи, где меняется позиция P

А вообще-то действительно. P.Size := 0, это нехорошо. Но, увы, ничего поделать уже нельзя, разве что добавить другой метод, типа -- CopyFromPosition