[Mick]

Si, con algo parecido a esto:

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;

Saludos