Gracias duiliolosa con
Código Delphi
[-] for i:=1 to length(Mensaje) do begin
num:= Ord(Mensaje[i]);
....
end;
quedó bien ya que te transforma el string a byte, ver que i empiece de 1 y no de cero.
Queda el otro tema:
¿Que es mejor, usar esto o un componente?