Problemas con Application.MessageBox

[jeremiselxi]

Buen día a todos.

Esperando se encuentren bien, iré directo al punto.

Estoy teniendo problemas para mostrar un mensaje personalizado que estoy necesitando y vamos directo al código.

Esto es lo que al final quiero mostrar

Código Delphi [-]

Application.MessageBox('Usted no tiene acceso al permiso CACON  - Cambiar Contraseña.'+  #13+ 'Favor contactar al Administrador del Sistema',
'Acceso Denegado',MB_ICONERROR );

La palabra en rojo "CACON - Cambiar Contraseña" viene de dos campos de la base de datos tal como se muestra en el siguiente código:

Código Delphi [-]
ShowMessage(form_tablas.Query_Usuarios_permisos.FieldByName('Codigo').AsString + ' - '+form_tablas.Query_Usuarios_permisos.FieldByName('Descripcion').asstring);

Application.MessageBox('Usted no tiene acceso al permiso CACON  - Cambiar Contraseña.'+  #13+ 'Favor contactar al Administrador del Sistema',
'Acceso Denegado',MB_ICONERROR );

Lo que no he podido hacer es agregar esos campos al mensaje de application.messagebox.



y de todas las maneras que pongo me muestra este mensaje:

[Error] principal.pas(180): Incompatible types: 'String' and 'PAnsiChar'
[Fatal Error] SGPA.dpr(61): Could not compile used unit 'principal.pas'

Podrían darme una mano

Gracias de antemano por su acostumbrada colaboración.

Saludos

[jeremiselxi]

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