// simple logging procedure TReadDemo.dOPCUAClient1Log(Sender: TObject; LogSeverity: Integer; LogType: Cardinal; LogMessage: string; Data: TuaObj); begin TThread.Queue(nil,procedure() begin Memo1.Lines.Add(LogMessage + ' '+ TuaLog.ToString(LogType)); end); end; // shows detailed response as JSON message in a memo box procedure TBrowseDemo.AddToLog(LogMessage: string; Data: TuaObj); var Response: TuaResponseObj; begin if (Data <> nil) and (Data is TuaResponseObj) then begin Response := TuaResponseObj(Data); MemoResponse.Lines.Text := Response.ToString; end; end; procedure TBrowseDemo.OPCClientLog(Sender: TObject; LogSeverity: Integer; LogType: Cardinal; LogMessage: string; Data: TuaObj); begin TThread.Queue(nil,procedure() begin AddToLog(LogMessage,Data); end); end;