Erhalte richtige Bytes, das if wird nicht durchlaufen

[janjan]

Probiers mal so:

Delphi-Quellcode:

ShowMessage(IntToStr(Byte(sCom[1])) + IntToStr(Byte(sCom[2]))); 
if (sCom[1] = #106) and (Byte(sCom[2])  = #0) then 
begin 
  ShowMessage('Falsches Byte'); 
end 
else if ((sCom[1] = #106) and ((Byte(sCom[2]) and 32) <> 0)) then 
begin 
ShowMessage('Richtiges Byte'); 
end; //if

Oder mach sowas in die Richtung:

Delphi-Quellcode:

if (sCom[1] = #106) then
  begin
    if Byte(sCom[2]) = #0 then 
      begin
        ShowMessage('Falsch');
      end;
    if (Byte(sCom[2]) and 32) <> 0 then 
      begin
        ShowMessage('Richtig');
      end;
  end;