リストものを最後まで回そうとして、

with XXXList do begin
　for i := 0 to Count do begin ← 急いでいて - 1 を忘れる
　　………
　end;
end;

で例外発生。
まあ、すぐわかるから被害はないんだけど…