routine da decimale a bit mi da solo 7 bit

[caviccun]

Ho copiato una routine che converte da decimale a bit. La routine prevedeva un solo decimale del valore ascii di un carattere, io l'ho modificata per le mie esigenze inserendo una stringa di caratteri estraendo un carattere per volta della stessa stringa. La stringa di caratteri corrispode all'oggetto inse.Text come faccio vedere dalla routine che posto. Da inse.Text estraggo la lunghezza e metto in un char il singolo carattere della stringa inse.Text e converto in integer il char. Tutto funziona solo che alla fine, anche se inserisco un solo carattere mi risultano solo 7 bit. Sbaglio io ho la routine ha un errore?

ps. in pabit.text metto il risultato

var
binario, s: string;
valor,y,x,i:integer;
ch:char;
begin
s:='';
for i:= 1 to length( inse.Text) do begin
ch:=inse.Text[i];
binario:='';
valor:= ord(ch);
while valor >= 1 do
begin
binario:=IntToStr(valor mod 2)+binario;
valor:=(valor div 2);
end;
s:=s +binario;
end;
pabit.Text:=inttostr(length(s)) +' ' +s;