十六进制转ascii

var
  s : string;
  t : string;
begin
  s := '36 31 35 20 0E BA D3 C4 CF D0 C2 C3 DC D3 D0 0F 33 30 2D 33 35 0E B6 D6 0F 20 30 34 31 37 20 35 38 36 37 32 34 38 20 0E BA C2 C5 AE CA BF 0F 20 20 23 35 30 37 0E';
  while s<>'' do
  begin
  t:=t+chr(strtoint('$'+copy(s,1,2)));
  delete(s,1,3);
  end;
end;