TComPort - TXD

[CaptainAwsome]

Da ist nur leider keine procedure zum ansprechen von TXD enthalten. Und um mir die selber zu schreiben blick ich da noch nicht genug durch.

EDIT: Ok habs mit der TComPort von der Inetseite hinbekommen.
Eine Sache interessiert mich noch:

der Befehl
ComPort := TComPort.Create(2); funktioniert im gegensatz zum Befehl:
 ComPort := TComPort.OpenCom('COM2'); Obwohl der 1. Befehl auch nur folgendes hervorruft:

Delphi-Quellcode:

constructor TComport.Create (AutoInit : Integer);
begin
 case AutoInit of
  1 : OpenCOM('COM1');
  2 : OpenCOM('COM2');
  end; {CASE}
end;

Weil mit dem Create kann ich nur COM1 und 2 ansteuern, mit OpenCom jeden beliebigen. Gibt es eine Möglichkeit irgendwie direkt OpenCom aufzurufen? Natürlich könnte ich auch einfach AutoInit mit mehr Zahlen erweitern, aber das is irgend wie ne unsaubere Lösung.