delphi问题

各位，小弟有礼了，请教个delphi问题，定义函数
function ComStrTolnt(AComStr:string):smallint;
var
mLen:integer;
mResult:string;
begin
mLen:=Length(AComStr);
mResult:=Copy(AComStr,4,mLen-3);
Result:=StrTolnt(mResult);
end;
运行时红色部分出错，详细分析了下，似乎是因为不同字节的类型（smallint 2个字节，string 4个字节）不可转换造成的，但又不知如何将string类型转换为smallint类型，请各位多加指导，谢谢了