안녕하세요. 최용일입니다.

COM, PRN모두 파일처럼 억세스 할 수 있습니다. 아래와 같이 해보세요...
참조하시면 컴포트 갯수뿐만아니라 그 컴포트가 사용가능한지도 알 수 있겠죠...

function GetComPortCount: Integer;
var
    ComFile: file;
    Index: Integer;
begin
    Result := 0;
    for Index := 1 to 10 do // COM1부터 COM10까지 검색
    begin
        {$I-}
        AssignFile(ComFile, 'COM' + IntToStr(Index));
        Reset(ComFile);
        CloseFile(ComFile);
        {$I+}

        if IOResult = 0 then // COM포트가 사용가능하다면
            Inc(Result);
    end;
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
    ShowMessage('컴포트 갯수는 ' + IntToStr(GetComPortCount) + '개 입니다.');
end;

^^ 항상 즐코하세요...

저는 Comport 컴포넌트를 이용해 처리 했던 기억이 있습니다.
자료실에 가시면 comport제어 컴포넌트가 있던데 그걸 사용해 보시죠..