Cport und Delphi 10.3

[js747a]

Die Daten die ich sende bestehen immer aus 'x' + Chr(160). Wobei die 160 ein Befehl ist.
Die Intellybox antwortet dan jeweils mit einer Antwort.
bestehende aus 1 oder mehr Bytes.
Die Bytes kann ich dann entschlusseln indem ich nachsehe welches Bit gesetzt (1) ist.

Beispiel
//Antworten auswerten
//********************Byte 1*********
If (byte1 AND 1) = 1 then XEvtLok; // 0C9h (201)
//IR Daten
If (byte1 AND 2) = 2 then ProtokolIBMemo.Lines.Add('Lok Daten ' +IntToStr(byte1));
//IREvent;
// S88 Daten
If (byte1 AND 4) = 4 then XEvtSen; // &HCB (203)
// IBPwr Changed
If (byte1 AND 8) = 8 then XStatus;
// changing the status
If (byte1 AND 16) = 16 then ProtokolIBMemo.Lines.Add('there has been at least one non-PC attempt
at changing the status of a reserved Turnout');
//Weichen auswerten
If (byte1 AND 32) = 32 then XEvtTrn; // 0CAh (202)
If (byte1 AND 64) = 64 then XStatus; //Bit 6: LSY 1: da war ein Lissy Event

Ich bekomme aber nicht dieselben Antworten zurück mit Delphi 10.3 als mit Delphi 7