Добавление и удаление объекта - Delphi - Ответ 3774746

type 
   TAbonent=class
      // ...
      function compare(q:string):Boolean;
   end;
 
  function TAbonent.Compare;
  begin
    result := Fnumberphone=q;
  end;

  procedure TCompany.Del_obj;
  var // t:TextFile;
       m:string;
  begin
    // Assign(t, '');
    // Reset(t);
     Writeln('Введите номер телефона абонента,которого нужно удалить');
    Readln(m);
    Del_Order(FL,m);
    // TAbonent.Create(t);
    // Close(t);
  end;

  procedure Del_Order(var L:TList;m:string);
  var p, q : TList;
      // s:string;
  begin
     P := L;
 
     // У тебя было compare(s), да и вообще вызов поменялся
     while (p^.next <> nil) and (not P^.next^.info.compare(m)) do
        p := p^.next;
 
     if p^.next <> nil then
     begin
        q := p^.next;
        p^.next := q^.next;
        q^.info.Free; // Здесь Q, а не P, это я ошибся в предыдущем посте.
        Dispose(P);
     end;
  end;