[fabianmk]

Hola:
Como me sugirieron: Adjunto el codigo donde en TEdit capturo la lectura de la Banda Mag del Tecl y luego en un TButton hago la lectura del TEdit y en un TLabel voy mostrando los codigos Ascii separados por ":"

var i: Integer;
  letra: Char;
  palabra: string;
begin
  Label1.Caption := '';
  palabra := Edit1.Text;
  for I := 0 to Length(palabra) do
  begin
    letra := palabra[i];
    Label1.Caption := Label1.Caption + IntToStr(Ord(letra)) + ':';
  end;
end;