请大家帮忙！急！！(0分)

Procedure TFrmOutStore.SendPrint();
Var
ArrOut: Array[0..12] of Byte;
I:integer;
StrDate:String;
begin
Arrout[0]:=$A0;
ArrOut[1]:=$+IntArea+40;
StrDestination:=RightStr(' '+StrDestination,4);
For i:=0 To 3 Do Begin
ArrOut[i+2]:=GetCode(MIDStr(StrDestination,i+1,1));
end;
StrDate:=FormatDateTime('yymmdd',Date);
ArrOut[6]:=$+StrToInt(MIDStr(StrDate,1,2));
ArrOut[7]:=$+StrToInt(MIDStr(StrDate,3,2));
ArrOut[8]:=$+StrToInt(MIDStr(StrDate,5,2));
For I:=0 To 8 Do Begin
ArrOut[9]:=ArrOut[9] Xor ArrOut;
end;
// MsCOMM.Output:=ArrOut;
//If MsCOMm.PortOpen=False Then
// MsCOMM.PortOpen:=True;
//MsCOMM.Output:=ArrOut;
comm1.ComponentIndex:=Arrout;
//if MsCOMM.OutBufferCount <= 0 then
// Exit;
end;

上面我注释的地方是用mscomm，但现在要用spcomm请问怎么转化，谢谢！还有设置那些属性呢？？

说明以上的关键字
IntArea和StrDestination是自定义的int 和String
GetCode是取汉字的ASCll码的函数名
上面的问题有那为朋友能帮忙吗？我真的很急？！
谢谢！！！