I solve it

I change all PChar(xxx) for PChar(AnsiString(xxx)) and now work Ok.

Thanks.