Verbindung mit COM-Schnittstelle aufbauen über TComPort

[Dark Angel]

Vielen Dank Leute es ist überall das selbe die BT COM's werden nicht richtig angezeigt.

Aber ich hab jetzt einfach eine normale COmbobox genommen und die richtigen COMnamen eingetragen und diese dann zum verbidungsaufbau genützt und sieh da es funzt.

Nun kommen wir zu den weiteren Problemen, die sich ergeben haben bei dem Programmcode..

Delphi-Quellcode:

procedure TForm3.Button2Click(Sender: TObject);   // ComPort2 ist schon richtig
begin
  ComPort2.Port := Combobox2.text; // das ist COM4
  ComPort2.BaudRate := br19200;
  ComPort2.DataBits := dbSeven;
  ComPort2.StopBits := sbOneStopBit;
  ComPort2.Parity.Bits := prEven;
  ComPort2.Buffer.InputSize := 1024;
  ComPort2.Buffer.OutputSize := 1024;
try
  ComPort2.Open;

except
  ShowMessage('Fehler: Bluetooth-COM-Port konnte nicht geöffnet werden...'); // Fehlermeldung
end;

..wird mir beim ausführen als erstes diese Nachricht "Erste Gelegenheit für Exception bei $776742EB. Exception-Klasse EComPort mit Meldung 'Unable to open com port (win error code: 121)'. Prozess Geschwindigkeitsmessung.exe (8848)" mit einer Programmunterbrechung angezeigt und wenn ich dann auf "fortsetzen" klicke kommt est die Fehlermeldung " ShowMessage('Fehler: Bluetooth-COM-Port konnte nicht geöffnet werden...'); // Fehlermeldung" die ich in except eingetragen habe zum vorschein.

was mache ich falsch??