用spcomm发送edit.text的函数senddata（s：string）,该怎么处理

用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
这是怎么回事？？？？？？？？？？？？？？

[解决办法]
没必要那么麻烦的呀
ComandStr：String;

form1.comm1.writecommdata(pchar(ComandStr),length(ComandStr));
我就是这样发数据的