Olaylar= record
1024Bytes = array[0..1023] of byte;
OnRx: procedure(const RxBfr: 1024Bytes; const DataLen: word); stdcall;
OnTx: procedure(const TxBfr: 1024Bytes; const DataLen: word); stdcall;
end;

type
 TDataBytes = array[0..1023] of byte;
 TOnData = procedure(const Buff: TDataBytes; const DataLen: word);

 Olaylar = class
  private
    FOnRx: TOnData;
    FOnTx: TOnData;
    procedure SetOnRx(const Value: TOnData);
    procedure SetOnTx(const Value: TOnData);
  published
    property OnRx: TOnData read FOnRx write SetOnRx;
    property OnTx: TOnData read FOnTx write SetOnTx;
 end;

procedure Olaylar.SetOnRx(const Value: TOnData);
begin
  FOnRx := Value;
end;

procedure Olaylar.SetOnTx(const Value: TOnData);
begin
  FOnTx := Value;
end;