convertir ascii a 0 y 1 y a beeps

[danielmj]

hola de nuevo, he empezado a trastear un poco la app, a esbozar si lo preferis, en fin el caso es que si pulso sobre un edit las teclas Alt+155, aparece el simbolo ascii "ø" que es lo correcto, el problema es que en el label no me guarda su valor numerico es decir "155", sino 248 y su semejante binario, adjunto captura. http://subefotos.com/ver/?cca3e3c60fa720f17f770603948a6a37o.png

El codigo que tengo es este:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var

  s: string;
  i,x: integer;

begin
  for i:= length(edit1.Text) downto 1 do
    begin
      label1.Caption:=  IntToStr(Ord(edit1.Text[i]));
      x:= StrToInt(label1.Caption);
      label2.Caption:= IntToBin(x,8);
    end;
end;

¿por qué no aparece el valor real? otro ejemplo, el valor numerico de ' ' es 255, pero en vez de eso me devuelve 160.

Gracias por vuestra ayuda.