Поиск COM портов

Нужно найти COM порты и вывести их в список или выпадающий список, для дальнейшей работы с ними.

Для этого подходит ниже следующий код

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls;
	
type
. . .
cbComPort: TComboBox;
. . .

procedure FindComPorts();
var
  i: integer;
  FHandl:THandle;
  DeviceName: array[0..127] of Char;
  sCom: string;
begin {опрос существующих портов}
  for i := 0 to 31 do {цикл опроса}
  begin {пробуем получить дескриптор порта}
    sCom := 'COM' + IntToStr(i + 1);
    StrPCopy(DeviceName, sCom+':');
    FHandl := CreateFile(DeviceName,
      GENERIC_READ or GENERIC_WRITE,
      FILE_SHARE_READ,      //0,
      nil,
      OPEN_EXISTING,
      FILE_ATTRIBUTE_NORMAL,     
      0);
    if FHandl <> INVALID_HANDLE_VALUE then
    begin {если порт есть то добавить в список}
      cbComPort.Items.Add(sCom);
    end;
    CloseHandle(FHandl); {закрыть дескриптор}
  end; // for
end;

Из кода видно, что по сути COM порт это ничто иное как файл, который надо открыть и прочитать, и если надо то записать в него данные.
У данного кода есть изъян, он не найдет COM порты которые уже чем-то заняты.