I made the next modification to debug:
if Response.Count > 0 then begin
try
try
AThread.Connection.WriteRFCStrings(Response);
except
on E: exception do
AddLog(e.Message);
end;
finally
AddLog('In finally - 1');
end;
end else if CommandHandler.Response.Count > 0 then begin
try
try
AThread.Connection.WriteRFCStrings(CommandHandler.Response);
except
on E: exception do
AddLog(e.Message);
end;
finally
AddLog('In finally - 2');
end;
end;
The error log contains:
Connection Closed Gracefully.
In finally - 1
Feri
