串口通信程序报错 大家帮忙看看

 程序报错： project project1.exe raised exception class EVariantInvalidArgError with message 'Invalid Argument' process stopped use stop or run to continue.报错程序段如下：//mscomm的oncom事件 procedure Tckform.MSCommComm(Sender: TObject);
var
  i, InputLen, tmpInt: Integer;
  tmpvar:Variant;
  InputStr: string;
begin
  InputLen:= 0;
  if MSComm.CommEvent = 2 then
  begin
    InputLen:= MSComm.InBufferCount;
      tmpvar:= MSComm.Input;
      InputStr:= '';
      for i:= 0 to InputLen - 1 do
      begin
        tmpInt:= tmpvar[i];
        InputStr:= InputStr + UpperCase(IntToHex(tmpInt, 2)) + #32;
      end;
    MemRec.Text:= MemRec.Text + InputStr;
  end;
end;大家帮忙看看，谢谢！