ich sehe da nichts. Aber warum machst du weiter, wenn du den User mit den passenden Nicknamen gefunden hast?
Delphi-Quellcode:
function TUsers.UserByNickname(const Nickname: string): TUser;
var
I: Integer;
begin
Result := nil;
for I := FUserList.Count-1 downto 0 do
begin
if CompareText(TUser(FUserList.Items[I]).FNickname, Nickname) = 0 then
begin
Result := TUser(FUserList.Items[I]);
break; // <== !!!
end;
end;
end;