однонаправленый список, удалить отрицательные элементы Опции

[sheka]

процедура должна удалять отрицательные элементы списка после PP

 procedure DelNegative(var PP:TPtr);
Var P:TPtr;
begin
    while (PP^.Link<>nil)do
    begin
    New(P);
    P:=PP^.Link;
    if P^.Inf<0 then
      begin
      PP^.Link:=P^.Link;
      Dispose(P);
      DelNegative(PP);
      end
    else
      begin
      PP:=P;
      Dispose(P); // <== вот здесь пишет invalid pointer operation
      DelNegative(PP);
      end;
    end;
end;

помогите решить.