По вашему примеру высыпалось куча ошибок, но на мысль правильную навели:
Код:
var
Str, s : String;
Data : TData;
i : Integer;
begin
Str := Edit1.Text;
for i := 0 to 7 Do
begin
s := '$' + Str.Substring(i*2, 2);
Data[i] := StrToInt64(s);
end;
Edit2.Text := inttohex(ks(data), 4);
end;
Спасибо за помощь!