ein item einer verketteten liste hinzufügen

[Pseudemys Nelsoni]

hoi,

ich versuche mit folgendem ein item in meine verkettete liste hinzuzufügen:

Delphi-Quellcode:

procedure TServer.ClientConnect(Sender: TObject; ASocket: TCustomWinSocket);
var
  Temp: PUserItem;
  User: PUserItem;
begin
  New(User);
  User^.Socket := ASocket;
  if FUserNode = nil then
    FUserNode := User
  else
  begin
    Temp := FUserNode;
    while (Temp^.next <> nil) do
      Temp := Temp^.next;
    Temp^.next := User;
  end;
end;

FUserNode ist der anker der liste. "User" das neue item.

nun (ich weiss nicht ob das so ist wenn bereits ein item in der liste ist oder wenn es das erste ist) bekomme ich bei meiner while schleife eine access violation...

ist an ihr irgendwas falsch? ich gehe doch nur durch bis zum letzten item und füge das neue an... bzw versuch ich das