Props := PB.ByName('Random.Id'); if Props <> nil then for i := 0 to Props.Count-1 do begin Prop := Props[i]; ... end;