Pessoal estou com problemas em transformar uma função em delphi que calcula o BCC que é utilizado para envio de mensagem do Painel da marca Spider para java. A função é a seguinte:
{*************************** CALCULA O BCC **************************************************}
BCC:=0;
Contx:=1;
While Contx<>(ApontTx+1) do Begin
BCC:=BCC Xor Byte(TxBuffer[Contx]); {xor no BCC}
BCC:=(BCC Shl 1); {giro a esquerda com cy}
Contx:=Contx+1;
End;
Minha principal dúvida está no BCC:=(BCC Shl 1);, pois não sei o que seria este Shl. Agradeço se alguém puder me dar uma ajuda.