FOnSlppEvent(self, FSLPPThread.FEvent, FSLPPThread.FParam);
except
on E: Exception do
- ShowMessage('Exception occured in OnSlppEvent: '#13#10 + E.Message);
+ ShowMessage(Format('Exception occurred in OnSlppEvent: %s'#13#10 +
+ 'Event type: %d'#13#10'%s',
+ [E.Message, Ord(FSLPPThread.FEvent), FSlppThread.Fparam]));
end;
end;