var MyArray:Array[1..5] of Byte = ($46, $6F, $72, $6D,$31); s: byte; begin for s := 0 to sizeof(MyArray) do begin for s := 0 to sizeof(MyArray) do if Pbyte($000000+s)^ = MyArray[s] then ShowMessage(' los 5 Bytes son correctos'); end; end;
funciona muy mal. lo que quiero es que si son los 5 bytes del array Lanze un Mensaje ojala me den una manita