Unit
IB_Components

Declaration

TIB_SoundExParse = procedure(     Sender: TObject;
                                  SourceStr: string;
                              var ResultStr: string ) of object;