Переход с BDE на ADO. Блокировка таблиц...

Доброго времени суток! MS SQL 8.0, Delphi 7 Осуществляется переход на ADO и в одной из функций (оговорюсь, продукт изначально не мой) встретил вот это:

function Tlock.getNum(alias,table,field:String;step:Integer):Integer;
var i:Integer;
begin
table1.DataBaseName:=alias;
table1.TableName:=table;
table1.open;

while DbiAcqTableLock(Table1.Handle ,dbiWriteLock)<>0 do;
      i:=table1.FieldByName(field).asInteger;

      Table1.Edit;
      Table1.FieldByName(field).AsInteger :=i+step;
      Table1.Post;
      Table1.UnLockTable(ltWriteLock);
      table1.close;
      getNum:=i;
end;

Как я понял функция блокирует указанную таблицу с тем, чтобы забрать номер следующей записи и присвоить полю номер+1. Теперь вопрос-как осуществить такую же блокировку таблицы средствами ADO (Query,Table)? Заранее благодарен )

Модератор: Тема перенесена из форума "Microsoft SQL Server".