var i:integer; car:char; asc:integer; begin car:= 'A'; asc:= ord(car); for i:=7 downto 0 do begin if (asc AND 1)=1 then ShowMessage('El Uno') else ShowMessage('El Cero'); asc:= asc SHR 1; end; end;