Bueno yo mismo lo solucioné sin querer.
Código Delphi
[-]
unircodigosydescripcion:= form_tablas.Query_Usuarios_permisos.FieldByName('Codigo').AsString + ' - '+form_tablas.Query_Usuarios_permisos.FieldByName('Descripcion').asstring;
Application.MessageBox(Pchar('Usted no tiene acceso al permiso '+unircodigosydescripcion +'.'+ #13+ 'Favor contactar al Administrador del Sistema'),'Acceso Denegado',MB_ICONERROR );
Espero le sirva