Delphi上的组件单元违反访问

Question

早晨 ！我在这里遇到了一个小问题，每次尝试在apdcomport1上访问或在timer_com上访问我，我都会在.exe上访问违规行为，并且在非常低的地址上...我首先想到组件的不良声明或不良设置接口菜单，我也尝试更改我的COM端口。

我想要我的接口A rs232通信，我认为Adpportcom我擅长于此。

错误消息是：00630477在模块“ blabla.exe”中的访问违规。读取地址000003D0。

这是我的变量，lib和fonction的声明。 （不是主要的）

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, OoMisc, AdPort, DefVar, AdExcept,u_msg;

type
  TForm11 = class(TForm)
    ApdComPort1: TApdComPort;
    Timer1: TTimer;
    Timer_com: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure ApdComPort1TriggerData(CP: TObject; TriggerHandle: Word);



  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form11: TForm11;
  Data:string ;
  IndiceSortie : integer;
  IndiceAux    : byte;
  Tx_com         : array[1..5000]of ansichar    ;
  Rx_com         : array[1..5000]of ansichar    ;
  handle1 : word;
  procedure open_port_com; forward;
  Procedure StoreConsigne(Var Data: string); forward;
implementation

{$R *.dfm}
uses U_main;

这是一个给我麻烦的过程。 （不是在主）

procedure open_port_com;
var
  c: Ansichar;
  { handle1 est une variable application }
begin
  with Form11 do
  begin
    try
      ApdComPort1.ComNumber:= 1;//sysdata.PortCom;
      ApdComPort1.open := false;
      ApdComPort1.RS485Mode := false;
      ApdComPort1.open := true;
      ApdComPort1.RemoveAllTriggers;
      c := chr(13);
      { caractère de déclenchement de l'évènement Ondatatrigger }
      handle1 := Form11.ApdComPort1.addDatatrigger(c, false);
      Timer_Com.Enabled := true;

    except
      on Ealreadyopen do { port série déja ouvert }
      begin
        Timer_Com.Enabled := false;
        messagedlg(Str_Err_Com[1] + inttostr(ApdComPort1.comnumber) + Str_Err_Com[2] + Str_Err_Com[3], mTerror, [mbok], 1);
        if messagedlg(Str_Err_Com[6], mtConfirmation, [mbYes, mbNo], 0) = mryes then

      end;
      on Ebadid do { port série innexistant }
      begin
        Timer_com.Enabled := false;
        messagedlg(Str_Err_Com[4] + inttostr(ApdComPort1.comnumber) + Str_Err_Com[5], mTerror, [mbok], 1);
        if messagedlg(Str_Err_Com[6], mtConfirmation, [mbYes, mbNo], 0) = mryes then

      end;
    end;
  end;
end;

我的主（com是单位鞋面）的lib，

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.StdCtrls, Vcl.ExtCtrls,
  Vcl.Imaging.pngimage, Vcl.Grids,

  U_Msg,DefVar,U_ModeMDP,U_Alerte,u_ValidationNet,U_ConsigneLancement,U_ArrUrgence,U_FinDeCycle,
  U_ConfirmFerme,   com    ,Vcl.WinXPickers, Vcl.Menus, Vcl.Imaging.jpeg;

我想知道是否可以轻松跟踪和解决此类型的错误。