MainForm set QuerySp procedure