删除memo中的行数(50分)

我的一个程序里要删除从第2行到最后一行的数据：
memo中的内容如下：
客户编号 客户选择的增值服务
001: 1.2.6
002: 1.2.3.4
003: 008
004: 1.36.25
现在我想删除第2行到第5行的数据，我在程序里写成这样：
for i := 1 to memo1.Lines.Countdo
begin
memo1.lines.Delete(i);
end;
可是执行的时候却不是直接删除第2行到第5行的内容，而是直接删除第2行和第4行的内容
请问是怎么回事，大家看看，在线等！

for i := memo1.Lines.Countdo
wnto 1do
begin
memo1.lines.Delete(i);
end;

谢谢！成功了！
为什么是这样的？？我写的错在什么地方？？

这个问题！
删除了一行以后，被删除的那行后面所有行的序号都会减一。

多人接受答案了。