Procedure Runsql (SQL: String); Var Comm: Tadocommand; Begin Comm: = Tadocommand.create (NIL); Comm .Connection: = DM_FRM.Adoconn; Comm.comMandText: = Sql; Comm.Execute; FreeAndnil (Comm);
END;
