Динамические структуры!!!!

[Oooooleg]

Привет народ!
Помогите сделать програму, через диначеские структуры.Срочно!

Розробити програму, яка створює список , елементами якого є цілі числа і дописує в кінець цього списку всі елементи в оберненому порядку до їх розміщення в (тобто будується симетричний список, наприклад, 1,2,3,3,2,1). Друкує отриманий список по сім елементів у рядку.

From Stilet: Перевожу
Разработать программу, которая создает список, элементами которого есть целые числа и дописывает в конец этого списка все элементы в обратном порядке от их размещения (т.е. строится симметричный список, например...).
Печатает список по семь элементов в строке


Я чето сделал но плохо!

type Telement=string;
     Tvkaz=^spusok;
     Spusok=record
     dani:Telement;
     next:Tvkaz;
    end;
Var  Head,Curr,Last:Tvkaz;

procedure TForm1.Button3Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.Button1Click(Sender: TObject);
var curr:Tvkaz;
begin
new(curr);
curr^.dani:=Edit1.Text;
curr^.next:=NIL;
head:=curr;
last^.next:=curr;
last:=curr;
Edit1.Text:='';

{new(curr);
curr^.dani:=Edit1.Text;
curr^.next:=head;
head:=curr;
Edit1.Text:=' '}

end;

procedure TForm1.Button2Click(Sender: TObject);
var curr:Tvkaz;
    st:string;
begin
st:='';
curr:=head;
while curr<>NIL do
   begin
     st:=st+curr.dani+' ';
     curr:=curr^.next;
   end;
Edit2.Text:=st;
end;

end.

[Stilet]

Друкує отриманий список

А куда ты его Друкувать хочешь?
В Делфи ведь много отобразителей есть.

[Oooooleg]

В Edit или Memo!

[Stilet]

procedure TForm1.Button2Click(Sender: TObject);
var curr:Tvkaz;
    st:string; i:Integer;
begin
st:='';i:=1;
curr:=head;
while curr<>NIL do
   begin
     st:=st+curr.dani+' ';
     if i mod 7 =0 then begin
       Memo.Lines.Add(st);
       St:='';
     end
     inc(i);
     curr:=curr^.next;
   end;
end;

end.

[Oooooleg]

Во время добавления числа при нажатии кнопки Button1 обнаруживается ошибка =>

Access violation at address 00451DBF in module 'Project1.exe'. Write of address 00000004.