Objekt an verketteter Liste hinzufügen.

[Pseudemys Nelsoni]

Moin,

ich versuche ein Objekt einer verketteten Liste so anzuhängen:

Delphi-Quellcode:

function TChannels.NewChannel(const ChannelName: string): TChannel;
var
  Channel: TChannel;
begin
  Result := TChannel.Create;
  if FChannelNode = nil then
    FChannelNode := Result
  else
  begin
    Channel := FChannelNode;
    while Channel.FNextChannel <> nil do
      Channel := Channel.FNextChannel;
    Channel.FNextChannel := Result;
    Result.FName := ChannelName;
  end;
end;

Nur gibts dort eine AV und der Pfeil zeigt auf das erste "if".... Weiss jemand was da falsch sein soll? Scheint mir alles richtig