Ascii ??

[torito]

Hola amigos foreros, me encuentro con la sig. situación. tengo una función mediante la cual me envian una cadena de numeros los cuales debo dividir en paquetes de 3 y cada paquete lo convierto de deciamal a ascii, pero al meterle la cadena 092166061150 y al dividirla en 092,166,061,150 me arroja de cadena \¦=– de lugar de \ª=û, como veran hay una diferencia notoria, les envio mi codigo adjunto por si alguien pudiera auxiliarme, muchas gracias.

function cambia_ascii(pass: string): string;
var
dato,res: string;
nada: char;
i,z: integer;
begin
with form1 do
begin
//pass:=edit3.Text;
dato:='';    res:='';
for i:=1 to length(pass) do
 begin
 if (i mod 3) <> 0 then
  begin
  dato:=dato+pass[i];
  end
 else
  begin
  dato:=dato+pass[i];
  z:=StrToInt(dato);
  nada:=chr(z);
  res:=res+nada;
  dato:='';
  end;//= a 3
 end;//for

 cambia_ascii:=res;
end;
end;

P.D: se que se pueden ahorrar 4 lineas de código pero después lo hago, sorry