TWorkEndEvent = procedure (Sender: TObject; AWorkMode: TWorkMode) of object;
AWorkMode is a TWorkMode value that indicates if the component is receiving or sending data.