[Istvel]

По вашему примеру высыпалось куча ошибок, но на мысль правильную навели:

Код:

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;

Спасибо за помощь!