динамические списки

[tricksler]

никак не добавляется эл-т списка... после третьего вылетает какая-то ошибка.... что, собственно, не так?


Кусок кода:

procedure TForm2.btn1Click(Sender: TObject);
begin
New(now);
now^.dt:= StrToInt(lbledt1.Text);
run:=home;
if run=nil then home:=now
else
begin
while run^.next <> nil do run:=run^.next;
run^.next:=now;
end;
lbledt1.Clear; lbledt1.SetFocus;
end;

где
home - указатель на начало
run - "рабочий" указатель
now - новый указатель