Ao Compilar o programa, algumas vezes aparece a mensagem

[Warning] Inclui.pas(463): Unsafe type 'PChar'

na seguinte rotina:

if Application.MessageBox (
PChar ( 'Telefone já registrado para a empresa : ' +
ARQ_FONE.fieldByName ( 'EMPRESA' ).AsString +
' Deseja Registrar assim mesmo ?' ),
' Telefone existente ' ,
MB_ICONQUESTION + MB_YESNO + MB_DEFBUTTON2 ) = IDNO then


A rotina funciona perfeitamente, porém aparece o aviso ao compilar.
Como resolver ?

Obrigado

Opa

Puxe o valor do campo em uma variável... exemplo

var
s: String;
begin
s := ARQ_FONE.fieldByName ( 'EMPRESA' ).AsString;

if Application.MessageBox (
PChar ('Telefone já registrado para a empresa : ' + s + ' Deseja Registrar assim mesmo ?' ),
' Telefone existente ' , MB_ICONQUESTION + MB_YESNO + MB_DEFBUTTON2 ) = IDNO then

ouu tire o warning, ele avisa porque pode ter problemas pra puxar o valor diretamente do
campo pois isto seria dinamico e armazenando em uma variavel voce já teria o valor estático...

{$WARNINGS OFF}
if Application.MessageBox (
PChar ( 'Telefone já registrado para a empresa : ' +
ARQ_FONE.fieldByName ( 'EMPRESA' ).AsString +
' Deseja Registrar assim mesmo ?' ),
' Telefone existente ' ,
MB_ICONQUESTION + MB_YESNO + MB_DEFBUTTON2 ) = IDNO then
{$WARNINGS ON}

abraços

Obrigado pela dica.
Resolveu o meu problema.