[javitxu]

Prueba con esto:

if Application.MessageBox(PChar('Pieza '+QuotedStr(RefStr)+ ' encontrada, ¿Desea cambiar su precio?'),'Pieza Existente',mb_IconQuestion + mb_YesNo) = IdYes then begin


Suerte