用spcomm发送edit.text的函数senddata（s：string）

procedure senddata(s:string);
var
  i:integer;
  s2:string;
  buf1:array[0..5000] of char;begin
  s2:=s+char(13);
    for i:=0 to (length(s2) div 2-1) do
  buf1[i]:=char(strtoint('$'+copy(s2,i*2+1,2)));
  form1.Comm1.WriteCommData(buf1,(length(s2) div 2));
end;
Button的事件   senddata(edit1.text)                  edit1.text是at;
               出现$at is not a valid integer value
这是怎么回事？？？？？？？？？？？？？？