串口通讯的问题，谢谢！

Question

procedure TForm1.Timer1Timer(Sender: TObject);
var i:integer;
begin
receive:=comm1.Input;           //读端口数据放在receive中i:=strtointdef(receive,-1);  //将string类型的数据receive转换为整形的 case i of
   0: begin
      end;
    1: begin
       liu2.listbox1.Items[0]:='in1'+'输入为1'  ;
       end;
   2: begin
      liu2.ListBox1.Items[1]:='in2'+'输入为1' ;
       end;
   3：
   4：
    。。
 end;
end；
    其中listbox中的items已经填入。
通信控件用了tocomm控件  高手来看看，为什么listbox不随输入的二进制数改变而改变