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

Question

大家好：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;这叫什么类型的定义啊？？？？？？？？？？？？？？？？

Answer 1

请问：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;这叫什么类型的定义啊？？？？？？？？？？？？？？？？

Answer 2

过程类型.
比如要调用DLL文件里的某个过程,就写和它相匹配的过程类型,然后调用.