Hola el mago00.
Para ampliar opciones, otro modo de asignar las duplas a las variables:
Código Delphi
[-]
...
procedure HexToVars(HexStr: string; v: array of Pointer);
var
c,i: Integer;
begin
i:= Low(v);
c:= 1;
while i <= High(v) do
begin
string(v[i]^):= Copy(HexStr, c, 2);
Inc(c, 2);
Inc(i);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
v1,v2,v3,v4,v5,v6,v7,v8: string;
begin
HexToVars('256312456892254', [@v1,@v2,@v3,@v4,@v5,@v6,@v7,@v8]);
ShowMessage(Format('%s %s %s %s %s %s %s %s',[v1,v2,v3,v4,v5,v6,v7,v8]));
end;
Saludos