Async Command - property ThreadSafeObject

[bogdanpolak]

type TAsyncCommand = class(TCommand)
  property ThreadSafeObject: TObject 
    read GetThreadSafeObject
    write SetThreadSafeObject;

function TAsyncCommand GetThreadSafeObject: TObject;
begin
  TMonitor.Enter(Self);
  try
    Result := fThreadSafeObject;
  finally
    TMonitor.Exit(Self);
  end;
end;