不发送本行解决方法

不发送本行
用
begin
    IsState   :=   1;
    for   i   :=   0   to   RichEdit1.Lines.Count-1   do
    begin
        if   Trim(RichEdit2.Lines[i])   =   'C9CFD0D0 '   then                                            
        begin
            IsState   :=     1;
      end;
        SendStr   :=   DecodeHEX(RichEdit2.Lines[i]);   }
        case   IsState   of
            1   :   SendStr   :=   Chr($10)   +   Chr($53)   +   Chr($54)   +   Chr($00)   +   Chr($00)   +   SendStr   +   Chr($4E)   +   Chr($41)   +   Chr($0D)   +   Chr($0A);  
        end;
        Tem   :=   Length(SendStr);
        Comm1.WriteCommData(Pchar(SendStr),Tem);
        Sleep(500);
        end;

怎么做,才能不把本行(就是   'C9CFD0D0 ')发出去?  
谢谢!  


[解决办法]
?????

if Trim(RichEdit2.Lines[i]) <> 'C9CFD0D0 ' then