Antes de executar a query verifique se existem esses comandos no texto do memo.
if (Pos('INSERT', UpperCase(Memo1.Text)) <> 0) then ShowMessage('Comando Insert não permitido!') else if (Pos('DELETE', UpperCase(Memo1.Text)) <> 0) then ShowMessage('Comando Delete não permitido!') else if (Pos('UPDATE', UpperCase(Memo1.Text)) <> 0) then ShowMessage('Comando Update não permitido!'); [As partes desta mensagem que não continham texto foram removidas]