Hallo zusammen,
ich hätte da ein problem mit delphi (borland d4)

Ich möchte einen USB_IRTransceiver mit Delphi ansprechen um einen asuro fernzusteuern.
Der Transceiver meldet sich als virtuelle ser.Schnittstelle (COM9) an.
Das wär der Code:
Code:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    ButOpenCOM: TButton;
    ButCloseCom: TButton;
    ButExit: TButton;
    Label1: TLabel;
    GroupBox2: TGroupBox;
    ButSend: TButton;
    procedure ButExitClick(Sender: TObject);
    procedure ButOpenCOMClick(Sender: TObject);
    procedure ButSendClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  Port: THandle;

implementation

{$R *.DFM}

procedure TForm1.ButExitClick(Sender: TObject);
begin
CloseHandle(Port);
Close;
end;

procedure TForm1.ButOpenCOMClick(Sender: TObject);
begin
Port := CreateFile(PChar('Edit1.Text'),GENERIC_WRITE,0,NIL,OPEN_EXISTING,0,0);
end;

procedure TForm1.ButSendClick(Sender: TObject);
var
befehl: Byte;
Count: DWORD;

begin
befehl := 80;
WriteFile(Port,befehl,1,Count,NIL);

end;



end.
Das Problem: Der USB-IR-T reagiert nicht. MAn sieht weder die beim senden sonst flackernde gelbeLED noch (mit HandyCam) die IR_LED leuchten.
Kann da jemand helfen?