一个基础的问题但我不会请大家帮忙————在线等待!!!!

                            
大家好:   
   
  type  
          TParity   =   (   None,   Odd,   Even,   Mark,   Space   );  
          TStopBits   =   (   _1,   _1_5,   _2   );  
          TByteSize   =   (   _5,   _6,   _7,   _8   );  
          TDtrControl   =   (   DtrEnable,   DtrDisable,   DtrHandshake   );  
          TRtsControl   =   (   RtsEnable,   RtsDisable,   RtsHandshake,   RtsTransmissionAvailable   );  
   
          ECommsError   =   class(   Exception   );  
          TReceiveDataEvent   =   procedure(Sender:   TObject;   Buffer:   Pointer;  
                                                                      BufferLength:   Word)   of   object;  
          TReceiveErrorEvent   =   procedure(Sender:   TObject;   EventMask   :   DWORD)   of   object;  
          TModemStateChangeEvent   =   procedure(Sender:   TObject;   ModemEvent   :   DWORD)   of   object;  
          TSendDataEmptyEvent   =   procedure(Sender:   TObject)   of   object;  
   
   
  请问:TReceiveDataEvent   =   procedure(Sender:   TObject;   Buffer:   Pointer;  
                                                                      BufferLength:   Word)   of   object;  
            TReceiveErrorEvent   =   procedure(Sender:   TObject;   EventMask   :   DWORD)   of   object;  
            TModemStateChangeEvent   =   procedure(Sender:   TObject;   ModemEvent   :   DWORD)   of   object;  
            TSendDataEmptyEvent   =   procedure(Sender:   TObject)   of   object;  
   
  这叫什么类型的定义啊????????????????

查看回复