用SPCOMM怎么才可以设置发送的字符间隔时间(40分)

我想打包发送，如下
if not Comm1.WriteCommData(@sbuf,64) then
begin
messagebox(getFocus,' 数据发送失败!','警告',0);
commflg:=false;
exit;
end;
可由于发送的太快，老是丢失仔符，我想设置时间间隔，怎么办啊，各位赐教了

procedure delay(ms:integer);
var
before:real;
begin
before:=gettickcount;
while gettickcount<(before+ms) do
application.ProcessMessages;
end;
然后
for i:=0 to 63 do
begin
if not Comm1.WriteCommData(@sbuf,1) then
begin
messagebox(getFocus,' 数据发送失败!','警告',0);
commflg:=false;
exit;
end;
delay(100);//延时100毫秒
end;

这样一来好象比较慢，而且慢了好多