Проверка на Null указателей

[Валенок]

plist ->(pnext->)->(pnext->)->(pnext=nil)
простейший односвязный список из 3х объектов.

PS
Прогон неких фб из списка

pcurrent := plist;
while pcurrent <> nil do
  pcurrent^(pnext => pcurrent);
end_while

обмен/архивация/события/...