[[cHackAll]]

Código Delphi [-]
//...

 ComPort.ReadStr(Str, Count);
 for i := 1 to Count do
  begin
   Binario := FastIntToBin(Byte(Str[i]), 8);
   StaticText1.Caption := Binario[1];

//...