if bRst then
begin
showmessage('ok'+inttostr(nCount));
pszDevicePath[nCount] := string(PChar(@(DeviceDetailData.DevicePath)));
showmessage(pszDevicePath[nCount]);
Memo1.Lines.Add(pszDevicePath[nCount]);
Inc(nCount);
end;
end;
end; //end while
showmessage('finished');