webdav.GetActiveLocks('http://localhost/WebDAV/');   
Assert(webdav.ActiveLocks.Count = 0);   
webdav.LockOwner := 'Clever Tester';   
webdav.LockScope := wsExclusive;   
Assert(webdav.LockTimeOut <> '');   
lockToken := webdav.Lock('http://localhost/WebDAV/1.txt');   
 
webdav.GetActiveLocks('http://localhost/WebDAV/');   
Assert(webdav.ActiveLocks.Count > 0);