Делаю прогу, которая отображает текущую информацию о книгах в библиотеке. Сделал добавление книги
Код:
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?