in Byte umrechnen und per string senden

[Apollonius]

Delphi-Quellcode:

var Data: String;
//...
SetLength(Data, 1);

if bit0 = 1 then
  Byte(Data[1]) := Byte(Data[1]) + $80;
//...
ComPort1.WriteStr(Data);

Ich vermute mal, dass du später mehrere Bytes auf einmal senden willst. Dann musst du den zweiten Parameter von SetLength entsprechend anpassen und Data entsprechend indizieren.