dbexpress怎么在事物中建立锁，数据库是sql server

[davidkali]

下面是代码：
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
TD: TTransactionDesc;
begin
self.SQLConnection1.Open;
TD.TransactionID :=50;
TD.IsolationLevel := xilREADCOMMITTED ;
self.SQLQuery1.SQLConnection :=self.SQLConnection1;
SQLConnection1.StartTransaction(TD) ;
self.SQLQuery1.SQL.Add('select * from wf_maxid where id = 10 ');
self.SQLQuery1.ExecSQL();
SQLConnection1.Commit(td)
self.SQLConnection1.Close;
end;

若是用ado控件，id =10的记录在运行了sql之后直到事务提交之前是排他状态，也就是其他想读这条记录的事物会被挂起，直到当前事务被commit.dbexpress中怎么实现亚，除了调用服务器存储过程。那位大虾告诉我一下，不胜感激。