求串口通信程序

串口通信么？大概涉及到的东西：AT命令(modem)，S寄存器，打开，关闭串口；串口配置和串口属性；读写串口；通信事件；设备控制命令；
http://tech.young8.com/html/VB/2007-1/4/21_11_12_724_2.html MSComm的用法。
大概写下：
function initMyComm():boolean;//初始化串口
begin
try
comm1.commName := myserverset.mCommName；
..................
......
//.....初始化串口
comm1.StartComm();
except
comm1.stopComm;
result := false;//初始化失败
exit;
end;
result := true;//成功初始化
end;
关闭Modem
procedure CloseMycomm();//关闭
begin
if boolean(comm1.handle) then
begin
comm1.stopComm;
end;
end;