Código Delphi [-] MessageDlg('SQL: ' + QrOperacion.SQL.Text , mtWarning, [mbOK], 0);
MessageDlg('SQL: ' + QrOperacion.SQL.Text , mtWarning, [mbOK], 0);