[Devil669]

Делаю прогу, которая отображает текущую информацию о книгах в библиотеке. Сделал добавление книги

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

type  TPkniga=^Tkniga;  Tkniga=record  nomer:integer;  avtor:string;  nazva:string;  god:integer;  kol:integer;  next:TPkniga;  end; var   Form1: TForm1;   curr:TPkniga;   head:TPkniga;   a:integer;   found: boolean;   pre: TPKniga;   procedure TForm1.Button1Click(Sender: TObject); begin if (length(edit1.text)=0) or (length(edit2.Text)=0) or (length(edit3.Text)=0) or (length(edit4.Text)=0)or(length(edit5.Text)=0)then begin showmessage('Çàïîëíèòå ïóñòûå ïîëÿ'); exit; end; new(curr); curr^.nomer:=strtoint(edit1.Text); curr^.avtor:=edit2.Text; curr^.nazva:=edit3.Text; curr^.god:=strtoint(edit4.Text); curr^.kol:=strtoint(edit5.Text); curr^.next:=head; head:=curr; edit1.Text:=''; edit2.Text:=''; edit3.Text:=''; edit4.Text:=''; edit5.Text:=''; end;

Как теперь сделать удаление книги с помощью dispose?