удаление элемента из списка

[yagluboko]

Пожалуйста, помогите, никак не могу написать процедуру, то тут то там какой- то глюк выдаёт:

procedure TForm1.Del(d: string; var Poin: PNode);
var
  PoinDel, r: PNode;
begin
  if Poin^.Info.Name = d then
  begin
    PoinDel := Poin;
    Poin :=  Poin^.Next;
    Dispose (PoinDel);
  end else
  begin
    q := Poin^.Next;
    r := Poin;
    while (q^.Next <> nil) do
    begin
      if q^.Info.Name = d then
      begin
        PoinDel := q^.Next;
        q^.Info := PoinDel^.Info;
        q^.Next := PoinDel^.Next;
        Dispose (PoinDel);
        Break;
      end else
        r := q;
        q :=  q^.Next;
    end;
    if q^.Next = nil then
    begin
      r^.Next := q^.Next;
      Dispose (q);
    end;
  end;
end;

Работает только еслди данный элемент в списке первый, и то в StringGrid
остальной список записывает, а в файл нет. Если же ничего не удалять, то в файл весь список записывается и потом читается корректно

[Grag]

Вот мои процедуры создания, добавления и удаления узлов в двусвязном списке...

Type
   pEl= ^Element;
   Element= record
              Dat:byte;
              Next:pEl;
              Prev:pEl
            end;
Var
   trmB,trmE,ptrTop:pEl;
   fl:text;
   Number,index,Deleting:integer;
Procedure CreatUz(var trmB,trmE:pEl; N:byte);
Begin
    New(trmB);
    trmB^.Next:=NIL;
    trmB^.Prev:=NIL;
    trmB^.Dat:=N;
    trmE:=trmB
End;
Procedure AddUz(var trmE:pEl; N:byte);
Var
    prom:pEl;
Begin
    new(prom);
    prom^.Dat:=N;
    prom^.Next:=nil;
    prom^.Prev:=trmE;
    trmE^.Next:=prom;
    trmE:=prom
End;
Procedure DelUz(var ptrTop:pEl);
Begin
    ptrTop^.Prev^.Next:=ptrTop^.Next;
    ptrTop^.Next^.Prev:=ptrTop^.Prev;
    dispose(ptrTop)
End;