Hi IBOs,

qTEST := TIB_Query.create(self);
with qTEST do
begin
sql.add('select * from TABLE for insert');
Open;
insert;
FieldByName('RID').AsInteger := 12;
post;
end;
qTEST.free;

#### "for insert" MUST replaced by "for update" ####

sql.add('select * from TABLE for update');

Andreas