How to catch ESynapseError with RoSynapseSuperTcpChannel?

Hi,

get testcase from another your topic
change 2 lines and add exception classname

procedure TClientForm.ROChannelServerLocatorAssignment(
  Sender: TROTransportChannel; aLocator: TROServerLocator;
  aException: Exception);
begin
  if Assigned(aException) then
    Log(Format('Exception: %s:%s.', [aException.ClassName, aException.Message])); //changed
procedure TClientForm.ROChannelException(Sender: TROTransportChannel;
  anException: Exception; var aRetry: Boolean);
begin
  Log(anException.ClassName +':'+ anException.Message); //changed