Удаление повторяющихся элементов из динамического списка

Не могу найти ошибку. Нужно из списка удалить повторяющиеся элементы
type
TPSlovo=^TSlovo; //Указатель на тип слово
TSlovo=record
Slovo:string[20];//слово
next:TPSlovo;//следующий элемент списка
pred:TPSlovo;//Предыдущий элемент списка
end;
var
head: TPSlovo;//Начало (голова) списка

//Удаление повторов
procedure TForm1.Button2Click(Sender: TObject);
var node: TPSlovo; //новый узел
curr: TPSlovo;//текущий узел
pred: TPSlovo; //предыдущий относительно curr узел
next: TPSlovo;//следующий щтносительно curr узел
n:integer; // длина (количество элементов) списка
st: string; //строка представление списка
begin
curr^.Slovo:=Edit1.Text; //фамилия

//Если элементы повторяются, то оставить один из них
if Curr^.next=Curr^.pred then
begin
// Удаление из списка
curr:=next;
next:=curr^.next;
Dispose(next);
//отчистить поля ввода
Edit1.Text:='';
end;
//вывести список в Label3
n:=0;
st:='';
curr:=head; //указатель на первый элемент списка
while curr<>NIl do
begin
n:=n+11;
st:=st+curr^.Slovo+#13;
curr:=curr^.pred;// указатель на следующий элемент
end;
if n<>0 then Label3.Caption:='Список после удаления повторов'+#13+st
else ShowMessage('В списке нет элементовю');

end;

Это лаба?

Ну, типо да

Цитата (julia-julia):

Тогда какого хрена она на форуме делает?

На самом деле это одно из заданий из курсовой. Я не знаю где ошибка, может поможете хотя бы объясните

Какой смысл городить свои списки, когда есть стандартные?
Твой кривой исходник я не буду читать, нервы дороже. Могу насписать с нуля. За пиво.

Да, и ещё... Ненавижу, когда мой родной русский язык пишут транслитом! Это просто дикий беспредел. Не делай так больше.