Exception Thread

  if FFuturePolyBaseVersion.Status = TTaskStatus.Exception then
  try
    FFuturePolyBaseVersion.Value
  except
    on E: Exception do
    begin
      if E is EAggregateException then
        if EAggregateException(E).Count > 0 then
          ShowMessage('Errore: ' + EAggregateException(E).InnerExceptions[0].Message);
    end;
  end;