极具挑战性的问题,高手请进(20分)

请问为什么这段程序在***处不执行,但加上断点可以
s :=RevForm.REVMO.Lines.Strings[iLastLine] + s;
// Remove carriage returns (break lines)
i := pos( #13, s );
while i <> 0 do
begin
ss := copy( s, 1, i-1 );
delete( s, 1, i );
j := pos( #13, s );
if j<>0 then
begin
TmpStr:=copy(s,1,j-1);
*** if TmpStr<>'OK' then
if copy(TmpStr,1,6)<>'+CMGL:' then
if Copy(TmpStr,1,4)='0891' then AutoUnPack(TmpStr);
TmpStr:='';
end;
if iLastLine <> -1 then
begin
RevForm.REVMO.Lines.Strings[iLastLine]:= ss;
iLastLine := -1;
end
else
RevForm.REVMO.Lines.Add( ss );
i := pos( #13, s );
end;