请问怎样用mscomm实现在同一台机上的两个com口间收发讯息？(100分)

请问怎样用mscomm实现在同一台机上的或者两台机的两个com口间收发讯息，即一个com口发送，另一个com
口接收，请各位大虾写一个简单的程序来看看，谢谢！！

如果用RS232连接要‘跳线’，在ONCOMM事件中实现？
var
i1:integer;
rbuf:array of byte;
RtBufferleVariant;
xyi:variant;
begin
SetLength(rbuf,0);
InCount:= Comm1.InBufferCount;
setlength(rbuf,InCount);
RtBuffer:= Comm1.Input;
xyi:=VarArrayCreate([0,inCount],varByte);
xyi:=RtBuffer;
for i1:=0 to InCount-1 do
begin
//do something
end;
end;

很不错

接受答案了.