Código Delphi [-] MessageDlg('SQL: ' + consulta, mtInformation, [mbOK], 0);
MessageDlg('SQL: ' + consulta, mtInformation, [mbOK], 0);