对文本操作时出现的怪问题！

Question

定义一个过程如下：怎么只有在加上 showmessage('删除err成功');
这一句的时候才能成功删除，取掉这一句showmessage('删除err成功');
的时候好象对文本的操作失效。procedure Tform1.delok;
var
 i  :integer;
 Strbz3 :string;
 strl   :Tstringlist;
 begin
  strl :=tstringlist.Create;
  strl.LoadFromFile('c:\ghxs\err\log.txt');
   for i:=0 to pred(strl.Count)  do
   begin
      Strbz3:=copy(strl[i],1,3);
          if Strbz3='ok!'  then begin
           strl[i]:='';
           end;
   showmessage('删除err成功');
          end;
strl.savetofile('c:\ghxs\err\logerr.txt');
end;

Answer 1

for i:=0 to pred(strl.Count-1)  do

Answer 2

这好象和for i:=0 to pred(strl.Count-1)  do 没有多大的关系，为什么有showmessage('删除err成功');就可以，取掉showmessage('删除err成功');就功能失效！