请问如下的Delphi代码偶尔会出现指针报错的问题，是否哪里没有预防到，请高手指教。谢谢

Question

procedure TfrmMain.AddToMemoPlus(Str: PChar;Len: DWord);
var
 strResult : string;
 i : integer;
begin {此处对2.45G读头反馈的UID进行截取处理}
 {第二个版本}
  p := Pointer(str);
  i := 0;
  strResult := '';  while i < len do
   begin    if Ord(p^) = $02 then //开始字符
     begin
        inc(i,1);
        inc(p,1);
        continue;
     end else
     begin
        strResult := strResult + chr(Ord(P^));
        inc(i,1);
        inc(p,1);
     end;   end;  if strResult <> '000000' then
   begin
    AddViewList(trim(strResult));
    {此处加入 内存表格}
    PlaySound('yes', hInstance, SND_RESOURCE or SND_ASYNC);
   end;
end;

Answer 1

if not Assigned(Str) then Exit;

Answer 2

if not Assigned(p) then break;