Hola amigos del foro por sus comentarios , hice esta pequena rutina para elimnar los caractes especiales y parece que las cosas marchan mejor, estoy revisando
Código Delphi
[-]
function TFPEDINTCG1.BORRA_CARACTERES_ESPECIALES(P_STRING:STRING):STRING;
var
w_s:string;
W_l:Integer;
w_letra:string;
W_t:Integer;
W_CHR :Char ;
W_ORD:Integer;
begin
w_s:= P_STRING;
w_l := Length(w_s) ;
FOR w_t:= 0 to w_l do begin
w_letra:= w_s[w_T];
W_CHR:=W_LETRA[1];
W_ORD:=Ord(W_CHR);
IF (W_ORD < 32) or (W_ORD > 127) then
w_s[w_T]:= ' ';
end;
Result := w_s;
end;