[govorun]

Сделал так

Код:

var
    id:integer;
begin
    id:=adoquery1.Fields[0].AsInteger;
    adotable1.Edit;
    adoquery2.Close;
    adoquery2.SQL.Text:='update inkasso set sd_v_kl = 1 where s = id';
    adoquery2.Parameters[0].Value:=id;
    adoquery2.ExecSQL;
    adotable1.Post;
end;

мот кто получше что предложит