Code is as follows: ActiveList for THashedStringList type, a great god please help look at the usage right? The red place, whether can add?

Procedure TInterface. SetList (pStatus: pStatus);
Var
Index: Integer;
The begin
With ActiveList do
The begin
If (pStatus ^. C_status='2') or (pStatus ^. C_status='3') then
AddObject (pStatus ^ vc_code, TObject (pStatus ^. C_status) ).
end;
end;