[eXplorer]

подскажите как можно сократить код?
в edit2 написан шестнадцатиричный код (eXplore®)...

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
i3,i4:integer;
s:string;
begin
edit2.Text:='65 58 70 6C 6F 72 65 AE';
i3:=1;
i4:=2;
for i:=0 to 7 do
begin
s:=inttostr(strtoint('$'+edit2.Text[i3]+edit2.Text[i4]));
edit1.Text:=edit1.Text+chr(strtoint(s));
i3:=i3+3;
i4:=i4+3;
end;
end;