[CrazySoft]

Buen día, una favor como puedo modificar este código para usar en Delphi 7, da el siguiente error "Operator not applicable to this operand type" al asignar un valor a (pB + 1)^=1; el Delphi 10XE compila correctamente



Gracias por su colaboración

Código Delphi [-]
function THidRlyForm.SendCmd(Relay, Mode: Byte): String; 
var   pB,pB1,pB2,pB0,pB8: pByte;   
Dev:  TJvHidDevice;   
Status: Boolean; 
begin   
Dev := TJvHidDevice(lbBoards.Items.Objects[lbBoards.ItemIndex]);  
 try
     pB := AllocMem(10);
       pB^      := 0;    
 (pB + 1)^ := Mode;  // Error Operator not applicable to this operand type     
(pB + 2)^ := Relay;
      Status := Dev.SetFeature(pB^, 9);
      if Status then       Result := Format('%2.2x %2.2x %2.2x', [(pB + 0)^, (pB + 1)^, (pB + 2)^])
     else 
      Result := 'Command not sent';
      Status := Dev.GetFeature(Pb^, 9);
     if Status then       Result := Format('%s - %2.2x', [Result, (pB + 8)^]);
   finally
     FreeMem(pB);
   end;
 end;