1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

procedure TForm1.Button1Click(Sender: TObject);

  function CommExists(CommPort: integer): boolean;
  var
    s: array[0..5] of char;
    i: cardinal;
    CommConfig: TCommConfig;
  begin
    s := 'COMx' + #0;
    s[3] := chr($31 + CommPort);
    i := SizeOf(CommConfig);
    Result := GetDefaultCommConfig(s, CommConfig, i);
  end;

var
  i: Integer;
  s: array[0..5] of char;
  Result: THandle;
begin
  Result := 0;
  for i := 1 to 10 do
  begin
    if CommExists(i - 1) then
    begin
      s := 'COMx'+#0;
      s[3] := chr($31 + i - 1);
      try
        Result := CreateFile(s, GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
      finally
        if (Result <> INVALID_HANDLE_VALUE) then Label1.Caption := Label1.Caption + IntToStr(i) + ', ' else Label2.Caption := Label2.Caption + IntToStr(i) + ', ';
        CloseHandle(Result);
      end;
    end;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Label1.Caption := 'Verfügbar: ';
  Label2.Caption := 'Belegt: ';
end;