你可以用 WINDOWS API函数 CreateFile() 得到 Com Port 的句柄，
然后用标准的文件IO 和 COM PORT通讯
下面是一段例子
Var
hCommFile : THandle;
Procedure TForm1.Button1Click(Sender : TObject);
Var
PhoneNumber : String;
CommPort : String;
NumberWritten : LongInt;
Begin
PhoneNumber := 'ATDT 010-62988861' + #13 + #10;
CommPort := 'COM2';
{打开 comm port}
hCommFile := CreateFile(PChar(CommPort),
GENERIC_WRITE,
0,
Nil,
OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,
0);
If hCommFile = INVALID_HANDLE_VALUE Then
Begin
ShowMessage('不能打开 ' + CommPort);
exit;
End;
{拨号}
NumberWritten := 0;
If WriteFile(hCommFile,
PChar(PhoneNumber)^,
Length(PhoneNumber),
NumberWritten,
Nil) = false Then Begin
ShowMessage('无法写 ' + CommPort);
End;
End;
Procedure TForm1.Button2Click(Sender : TObject);
Begin
{关闭comm port}
CloseHandle(hCommFile);
End;
