TList mit records - wie darin suchen?

[Tubos]

Eine Frage noch:
wieso gibt dieser code immer -1 zurück, obwohl die ip 'a' in der Liste vorhanden ist?

Delphi-Quellcode:

function finduserip(ip: string): integer; // Gibt die Nummer des users in der "users"-Liste zurück, der die übergebene IP hat.
var i: Integer;
begin
 for i := users.count-1 downto 0 do
 begin
   if userpointer(users.items[i]).ip = searchip then
   begin
    result:=i;
    break;
   end;
 end;
 result:=-1; // wenn nichts gefunden wurde, wird -1 zurückgegeben
end;

Code zum testen:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var u: userpointer;
begin
 new(u);
 u.ip:='a';
 u.name:='a';
 u.port:=1;
 users.Add(u);
 new(u);
 u.ip:='b';
 u.name:='b';
 u.port:=2;
 users.add(u);
 showmessage('Nach dem Hinzufügen von 2 Items ist users.count = '+inttostr(users.Count));
 showmessage('user nr. '+inttostr(finduserip('a'))+' hat die IP a.');
end;