要打開串口，您可以使用Delphi中的CreateFile函數來實現。

首先，您需要調用CreateFile函數來創建一個與串口相關的文件句柄。此函數的原型為：

function CreateFile(lpFileName: PChar; dwDesiredAccess, dwShareMode: DWORD;
  lpSecurityAttributes: PSecurityAttributes; dwCreationDisposition, dwFlagsAndAttributes: DWORD;
  hTemplateFile: THandle): THandle; stdcall;

其中，lpFileName參數用于指定串口的名稱，例如"COM1"表示第一個串口，"COM2"表示第二個串口，以此類推。

dwDesiredAccess參數用于指定對于串口的訪問權限，通常可以設置為GENERIC_READ | GENERIC_WRITE，表示可讀可寫。

dwShareMode參數用于指定共享模式，通常可以設置為0，表示不共享。

其他參數可以設置為0或者nil。

接下來，您可以檢查CreateFile函數返回的句柄是否有效，如果有效則表示串口打開成功，可以進行后續的串口相關操作，如果無效則表示串口打開失敗。

以下是一個示例代碼，演示了如何打開串口：

var
  hComm: THandle;
begin
  hComm := CreateFile('COM1', GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, 0, 0);
  if hComm <> INVALID_HANDLE_VALUE then
  begin
    // 串口打開成功，可以進行后續操作
    ShowMessage('串口打開成功');
    // ...
    CloseHandle(hComm); // 關閉串口
  end
  else
  begin
    // 串口打開失敗
    ShowMessage('串口打開失敗');
  end;
end;

請注意，此代碼示例假設您要打開的是COM1串口，如果要打開其他串口，請相應修改lpFileName參數的值。另外，需要包含Windows單元，以及使用了MessageBox函數來顯示打開串口的結果，您可以通過其他方式來替代。