Код:
procedure TForm1.Button1Click(Sender: TObject);
Var i:integer;
begin
edit2.Text:='65 58 70 6C 6F 72 65 AE';
for i:=0 to 7 do
Edit2.Text:=Edit2.Text+chr(StrToInt('$'+Copy(Edit1.text,3*i+1,2) ));
end;
тока у меня edit1-исходный
edit2 - конечный
Как не странно работает
