Как сбросить повисший ComPort?

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, CPort, ExtCtrls;
 
type
  TForm1 = class(TForm)
    BtnOn: TButton;
    BtnOff: TButton;
    Timer1: TTimer;
    Label1: TLabel;
    ComPort1: TComPort;
    ReCreate: TButton;
    Edit1: TEdit;
    procedure BtnOnClick(Sender: TObject);
    procedure BtnOffClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure ReCreateClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
procedure TForm1.BtnOnClick(Sender: TObject);
begin
  Try
    ComPort1.Port:=Edit1.Text;
    ComPort1.Open;
  Except
    IOResult;
    beep;
  end;
end;
 
procedure TForm1.BtnOffClick(Sender: TObject);
begin
  Try
    ComPort1.Close;
  Except
    IOResult;
    Beep;
  end;
end;
 
procedure TForm1.ReCreateClick(Sender: TObject);
begin
  try
    ComPort1.Destroy;
    ComPort1:=TComPort.Create(Form1);
    ComPort1.Port:=Edit1.Text;
  Except
    IOResult;
    Beep;
  end;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  If ComPort1.Connected then Label1.Caption:='ON' else Label1.Caption:='OFF';
end;
 
end.

procedure TComponentUSB.WMDeviceChange(var Msg: TMessage);
var
  devType: Integer;
  Datos: PDevBroadcastHdr;
begin
  if (Msg.wParam = DBT_DEVICEARRIVAL) or
    (Msg.wParam = DBT_DEVICEREMOVECOMPLETE) then
  begin
    Datos := PDevBroadcastHdr(Msg.lParam);
    devType := Datos^.dbch_devicetype;
    if devType = DBT_DEVTYP_DEVICEINTERFACE then
    begin // USB Device
      if Msg.wParam = DBT_DEVICEARRIVAL then
      begin
        if Assigned(FOnUSBArrival) then
          FOnUSBArrival(Self);
      end
      else
      begin
        if Assigned(FOnUSBRemove) then
          FOnUSBRemove(Self);
      end;
    end;
  end;
end;

 function TBComPort.Close: Boolean;
 begin
   if FConnected then
  begin
    SetDTR(False);
    SetRTS(False);
    AbortAllAsync;
    FEventThread.Free;
...