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