function GetHDSN9598: string;<br>var<br> s:string;<br> a: Char;<br> i:integer;<br>begin<br> GetIDEInfo;<br> for i:=0 to 9 do<br> begin<br> a := chr(pw[10+i]shr 8);<br> if a = #0 then<br> a := ' ';<br> s := s+a;<br> a := chr(pw[10+i]and $FF);<br> if a = #0 then<br> a := ' ';<br> s := s+a;{}<br> end;<br> Result := s;<br>end;<br>