Нужно преобразовать строку StrTmp в массив байт.
var
 i, j : Integer;
 StrTmp : String;
 Bytes : array[1..12]of byte;

begin
StrTmp := '48656C6C6F20576F726C6421';
j := 1;
for i := 1 to length(StrTmp) div 2 do
begin
 Bytes[i] := Str2Int('$'+Copy(StrTmp, j, 2));
 j := j + 2;
end;
В результате получаю массив с нулями.
Хотя с vcl этот цикл работал прекрасно.
В чем может быть проблема?

Hex2Int

Спасибо