Событие от объекта в классе

unit SerialNGUnit;
 
interface
 
uses SerialNG;
 
type
  TSerialNGClass = class(TObject)
  private
  PORT: TSerialPortNG;
 
  public
    procedure Sender(StrSend:string);
    procedure SetBasisSettings(CommPort:string; BaudRate,DataBits,ParityType,StopBits,FlowControl:integer);
    procedure Aktiv();
    procedure Deaktiv();
    function  GetBasisSettings(): string;
    function  Receiver(): string;
 
    destructor Destroy(); override;
    constructor Create();
end;
 
implementation
 
uses
  System.SysUtils;

procedure TForm1.SerialPortNGRxClusterEvent(Sender: TObject);
begin
  if TSerialPortNG(Sender).NextClusterSize >= 0 then // Data available?
    begin
      if TSerialPortNG(Sender).NextClusterCCError = 0 then // Error during receiveing?
        Terminal.Lines.Add(FormatDateTime('"Rec  '+TSerialPortNG(Sender).CommPort+'" dd.mm.yy hh:mm:ss" :"', Now))
      else
        Terminal.Lines.Add(FormatDateTime('"RecX '+TSerialPortNG(Sender).CommPort+'" dd.mm.yy hh:mm:ss" :"', Now));
      // Read the data and patch them into the editfield
      AddMultiString(TSerialPortNG(Sender).ReadNextClusterAsString,Terminal.Lines);
    end;
end;

procedure PORTRxClusterEvent(Sender: TObject);
procedure TSerialNGClass.PORTRxClusterEvent(Sender: TObject);
begin
       ShowMessage('Hello World');
end;

type
  TButton = class(StdCtrls.TButton)
  private
    procedure CMMouseEnter(var Msg: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var Msg: TMessage); message CM_MOUSELEAVE;
  public
  end;
...
 
{ TButton }
 
procedure TButton.CMMouseEnter(var Msg: TMessage);
begin
  Caption := 'In';
end;
 
procedure TButton.CMMouseLeave(var Msg: TMessage);
begin
  Caption := 'Out';
end;