arbeiten mit zeigern

[ferby]

hallo,

ich lerne gerade mit zeigern zu arbeiten und habe ein problem

Delphi-Quellcode:

procedure tform1.ausgabe;
var
i:integer;
begin

  z:=start;
  i:=0;

  repeat
    listbox.items[i]:=z^.name;
    inc(i);
    z:=z^.next;
  until z=nil;

end;

procedure TForm1.closebuttonClick(Sender: TObject);
begin
  close;
end;

procedure TForm1.button_eingebenClick(Sender: TObject);
begin

  new(z);

  z^.name:=edit_eingabe.text;

  if start=nil then start:=z
  else
  begin
    z1:=start;
    while z1^.next<>nil
    do z1:=z1^.next;
    z1^.next:=z;
  end;

  z^.next:=nil;

  ausgabe;

end;

wie schaffe ich es das die zeiger so verbogen werden das die namen in der listbox alphabetisch sotiert werden?
achtung: ich möchte die zeiger verbigen nicht irgendwie anders das sotieren erreichen, ich weiß das es da viel leichtere methoden gibt.

danke für hilfe,
ferby