Async Command - property ThreadSafeObject

```pas
type TAsyncCommand = class(TCommand)
property ThreadSafeObject: TObject
read GetThreadSafeObject
write SetThreadSafeObject;
```
```pas
function TAsyncCommand GetThreadSafeObject: TObject;
begin
TMonitor.Enter(Self);
try
Result := fThreadSafeObject;
finally
TMonitor.Exit(Self);
end;
end;
```

Locate TAsyncCommand and its TCommand base, then inspect the existing GetThreadSafeObject and SetThreadSafeObject entry points. The issue names no files or tests; done should mean the ThreadSafeObject property is available with the intended synchronized access shown in the issue.

Written by the indexing model from the issue text.