Помогите же кто-нибудь,пожалуйста!!!

[Селякова Елена]

Здравствуйте,мне нужна помощь!
Вот задание:
Создать линейный однонаправленный список, состоящий из вещественных чисел. Вывести на экран. Перенести в начало списка его последний элемент. Вывести новый список на экран.
Вот что я смогла сделать:
type tspisok=^element;
element=record
inf:real;
link:tspisok
end;

TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Button2: TButton;
Edit2: TEdit;
Button3: TButton;
Memo1: TMemo;
Button4: TButton;
Memo2: TMemo;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var k,begp,endp,pre,p,newp:tspisok;
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
new(pre);
pre:=nil;
p:=begp;
new(newp);
newp^.inf:=strtofloat(edit2.text);
while p<>nil do begin
pre:=p;
p:=p^.link; end;
newp^.link:=pre^.link;
pre^.link:=newp;
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
new(begp);
begp:=nil;
new(p);
p^.inf:=strtofloat(edit1.text);
p^.link:=nil;
begp:=p;
end;

procedure TForm1.Button3Click(Sender: TObject);
var m:string;
begin
pre:=nil;
p:=begp;
while p<>nil do begin
m:=floattostr(p^.inf);
memo1.Lines.Add(m);
pre:=p;
p:=p^.link;
end;
end;

но вот как сделать,чтобы при нажатии следующей кнопки в memo выводился новый список,в котором последний элемент был уже на первом месте???
помогите пожалуйста,я уже голову сломала думать