Código Delphi
[-]procedure TForm1.FormCreate(Sender: TObject);
var
cadena, strAux: string;
arrB: array[0..1023] of Byte;
i: Cardinal;
begin
cadena := '43274893174817841747819273894718978277417AQW13748179';
for i := 0 To (Length(cadena) div 2) - 1 do
begin
strAux := Copy(cadena, i * 2 + 1, 2);
arrB[i] := StrToInt('$' + strAux);
end;
Sleep(0);
end;
0j0: el Val del VB convierte a 'QW' como 0