Zitat von
jbg:
Ersetze mal ComPort1.InputCount und ComPort1.ReadStr() durch 1 bzw. sCom := #0#32.
Das würde mir nichts bringen, den #32 ist nicht fest, ist ja nur ein Beispiel. Byte1 kann nur #0 oder #1 sein, aber der Wert des zweten Bytes kann zwischen 0 und 255 liegen.
Aber ich kann Dir sagen das der auskommentierte Teil am anfang der Prozedur wunderbar klappt.
Grüsse, Daniel