e.message string is not transfered to onTexTranslatedErrorProc

[jrathlev]

In the except section of DeepLTranslateTextASync the parameter e.message is not transfered to the callback function onTexTranslatedErrorProc.
Whether this is only the case in Delphi 10 Seattle or also in other versions, I cannot say.

This code works in any case:

var
  se : string;
begin
     ...
      except
        on e: exception do begin
          se:=e.Message;
          if assigned(onTexTranslatedErrorProc) then
            tthread.queue(nil,
              procedure
              begin
                onTexTranslatedErrorProc(text, source_lang, target_lang,se);
              end);
        end;