[Devil669]

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

Код:

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?