Con la api de windows lo puedes realizar facilmente:
Código Delphi
[-]HANDLE WINAPI CreateFile(
__in LPCTSTR lpFileName,
__in DWORD dwDesiredAccess,
__in DWORD dwShareMode,
__in_opt LPSECURITY_ATTRIBUTES lpSecurityAttributes,
__in DWORD dwCreationDisposition,
__in DWORD dwFlagsAndAttributes,
__in_opt HANDLE hTemplateFile
);
En el parametro lpFileNam puede poner el nombre del puerto "com1:" por ejemplo.
Para mas informacion:
http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx